line-mode
words
    dup
    read-nums
f2
        is-alpha
    f1
m2
    7
    base #(list to num)
    53
    %
b4
sort #(list,block)
group
tail
    right-uncons
    swap
    @1
    length
    logical-and
    space
m6
init
map-show