RosettaCodeData/Task/Permutations-by-swapping/Tcl/permutations-by-swapping-2.tcl

permswap 4 p s {
    puts "$s\t$p"
}