% får ut en sublista, måste spamma ; för att få ut alla
subset([], []).
subset([X|Xs], [X|Ys]):-
    subset(Xs, Ys).
subset([_|Xs], Ys):-
    subset(Xs, Ys).

% för att få ut alla sublistor i en lista så gör man
setof(Subset, subset(AvailableBags, Subset), SubSets)