lines
inits
tail
    last
    63
    member
f3
m:
    right-uncons
    save-a
    "?"
    split
    swap
        push-a
        diff #(list-list)
    m2
        is-digit
    f1
    last
    join
    new-line