perm([], []).
perm(T, L) :- member(H, T), select(H, T, L1), perm(L1, L2), L = [H|L2].