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