line-mode
    is-upper
        10
    f1
    @2
    0
m5
words
    ascii-digits
    diff #(list-list)
    @0
    fizzbuzz
    catenate #(list+list)
    read-num
m6
unwords
f: