function A = selfloops(DFSA,q)
%[pp,nss] = find(DFSA.delta==q);
%ii = find(pp==q);
%A = DFSA.ALF(nss(ii));
A = alltrans(DFSA,q,q);
return

function A = alltrans(DFSA,q0,q1)
% all the letters that take q0 to q1
[pp,nss] = find(DFSA.delta==q1);
ii = find(pp==q0);
A = DFSA.ALF(nss(ii));
return