RosettaCodeData/Task/Permutations-by-swapping/Mathematica/permutations-by-swapping-2.math

Print["Perm: ", #[[1]], " Sign: ", #[[2]]] & /@ perms@4;