function motifset = reduceFuzzyMotif(fuzzymotif,numeric)
p=length(fuzzymotif);

if numeric
    motifset = {[]};
else
    motifset = {''};
end

for i=1:p
    
    letterset = reduceFuzzyLetter(fuzzymotif(p-i+1),numeric);
    temp = {};
    ind = 1;
    for j=1:length(motifset)
        for k=1:length(letterset)
            temp{ind} = [letterset(k) motifset{j}];
            ind = ind+1;
        end
    end
    motifset = temp;
end