reverse
words
    "p"
    and
f2
sort #(list)
        64
        >
    f2
m2
    right-uncons
    5
    power-of-2
    bnot
    &
    catenate #(list+elem)
m6
show-words
reverse