word-mode
m:
    ascii-digits
    lowercase-alphabet
    catenate #(list+list)
    index
    dup
    256
    digits
    member
    -
    ( "UuOo" )
    "w"
    over
    cartesian-product
    cartesian-product
    get
}
extract-array