factorial := [n | if (n < 2) [1] [factorial (n-1) * n]];

for_all_permutations := [array fun |
	iter := [start stop x | if (start >= stop) [x] [iter (start+1) stop (fun x)]];
	iter 0 (factorial (len array)) array
];

for_all_permutations (flat 1 2 3 4 5) [array|
	say array;
	permute array
];