empty-list
swap
init
m:
    dup
    96
    -
    copies
    2dup
    length
    drop
    catenate #(list+list)
}
unlines