function print_nfsa(NFSA,fname)
if ~exist('fname','var')
  fname = inputname(1);
end
fprintf('Information for NFSA "%s":\n',fname);
fprintf('Alphabet: "%s"\n',NFSA.ALF);  
fprintf('The states Q: %s\n',num2str(NFSA.Q));  
fprintf('Start state: %d\n',NFSA.q0);
fprintf('Accepting states: [%s]\n',num2str(sort(NFSA.F)));
for q = NFSA.Q
  for s = NFSA.ALF
    R = nfsa_delta(NFSA,q,s);
    if ~isempty(R)
      fprintf('(%3d,%s) -> [%s] \n',q,s,num2str(R));
    end
  end
end
return