m:
    ascii-digits
    lowercase-alphabet
    catenate #(list+list)
    index
    ( " .#\n" )
    2
    repeat-product
    get