function trycrazyidea

M = all_dfsa('ab');

[X,Y] = reglang_posneg_dense(0,6,M);

s = 'aab';

[vals,XV] = partition_eq(s,X);

keyboard

return

function [vals,XV] = partition_eq(s,X)
vals = [];
XV = {};
for i=1:length(X)
  k = ptker2(s,X{i});
  if length(vals)<k
    vals(k) = 1;
    XV{k} = {};
  end
  %vals(k) = vals(k) + 1;
  XV{k}{end+1} = X{i};
end
return