Write a function in SWI prolog programming languge named, "permutations", that takes a list as input and generates a list containing all possible permutations of the list elements. Here is a sample application:

?- permutations([1,2,3],X).

X=[[1,2,3],[1,3,2],[2,1,3],[2,3,1],[3,1,2],[3,2,1]]

Yes

?-