( "f\xa0\xc5\xab?\x15i\xdb\xdd\xc3\x13\xd6\x18r\x83\x8c'\xfbn;Z(j\xc1&\xfaI\x94S\x08)[\x83\x11\n\xf5\xb0\x8c\xc3$\xd9k\xda$\xa1D\x12\xfdo\x1b9-\xd9\xd7\xa2v($GC6\xc2\xb3\xd1\xa4nq\xf9\xeb\n\x85\x16\xb6\xc5\xaf\xd5\xa4;\x8f\x0b\x91AW\xa1h\xe2\x0c\xaf\xefH\xc93\xbcY]ah\xe9" )
256
base #(list to num)
28
base #(num to list)
lines
    lowercase-alphabet
    "-"
    left-cons
    show-space
    select
m5
2
chunks
    extract-array
    pop-b
    split
    push-b
    join
m5