factorial := (n | fold '* (1 + up n)),


list_all_permutations := ( array |
	for (up (factorial (len array))) (|
		say array,
		array = permute array,
	),
),

list_all_permutations (1 + up 5),