function S = subs(A)
S = {};
for i=1:length(A)
  Si = all_subseq(A{i});
  S = unique([S(:); Si(:)]);
end
return