line-mode
words
save-a
show
m:
    pop
    push-a
    sort #(list)
    extract-array
    left-uncons
    rrot
    pair
    pop-a