Prolog: random permutation

Question

I\'m trying to get random permutation with prolog. But the problem is

?- permutation([1,2,3,4],L).

gives always L = [1, 2, 3, 4]