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