line-mode
    32
    |
m2
f( "[^,]*?(?:dd|ng|sno|ree|ca[rn])" )
m:
    last
    6
    %
    @2
    read-nums
    1
    catenate #(list+elem)
    head
    copies
}
flatten
pop-a
4
range
m:
    ( "?,8" )
        10
        divmod
    m2
        4
        copies
    m2
    flatten
    ( "\x11ovO\x162\xd6\x02\xc6\xfb\xeck\xbb\xd5\x83)\xf3\x8f\x11+^\x82\x80>3'\xf5}H\xa8E\xf3\xb5\xfc\xf4\xe5\xb2\xb4A\\q\x0fI\x82\xd5\xa3B\x17\x15\xf9" )
    256
    base #(list to num)
    18
    base #(num to list)
    ( " !(),-./:=L\\^_o|~" )
    show-line
    select
    lines
        center
        show-space
    z2
    drop
    4
    step
    tuck-a
    select
    show-line