% not finished

function SS=decompose_monoid(A)
% decompose a monoid into the submonoids

SS = {};

while ~isempty(A)
    x = min(min(A));

return