function print_dfst(DFST,fname)
if ~exist('fname','var')
  fname = inputname(1);
end
fprintf('Information for DFST "%s":\n',fname);
fprintf('Input alphabet: "%s"\n',DFST.ALFin);  
fprintf('Output alphabet: "%s"\n',DFST.ALFou);  
fprintf('The states Q: %s\n',num2str(DFST.Q));  
fprintf('Start state: %d\n',DFST.q0);
fprintf('Accepting states: [%s]\n',num2str(sort(DFST.F)));
for q = DFST.Q
  for s = DFST.ALFin
    [p,t] = dfst_delta(DFST,q,s); 
    fprintf('(%3d,%s:%s) -> %3d \n',q,s,t,p);
  end
end
return