function M = longshuf2dfsa(k,alf)
% M accepts all strings of length k or longer

M.ALF = alf;
M.Q = 1:k+1;
M.q0 = 1;
M.F = [k+1];

M = init_ddelta(M);

for i=1:k
  q1 = i;
  q2 = i+1;
  for t=M.ALF
    M = set_ddelta(M,q1,t,q2);
  end
end

q = k+1;
for t=M.ALF
  M = set_ddelta(M,q,t,q);
end

return