reverse
words
    "p"
    and
f2
sort #(list)
    right-uncons
    95
    &
    catenate #(list+elem)
        is-alpha
    f1
m6
show-words
reverse