##
var a: array of integer := (1, 2, 3);
writeln(a);
while nextpermutation(a) do writeln(a);