m:-numlist(0,5,L),findall(Y,(permutation(L,X),concat_atom(X,' ',Y)),Z),sort(Z,M),maplist(writeln,M).