space
diff #(list-list)
m:
    ascii-digits
    lowercase-alphabet
    catenate #(list+list)
    index
    100
    over
    shift-right
    odd
    -
    4
    divmod
        ( "UuOo" )
        get
    t2
    "w"
    swap
    space