( "\x0c\x87\xa0\x19\xc6\xeb\xd8/\xba\xcf\xe5\xde\x97d\x0b6\x16\x89T\xe9x\x98\xbbr\xe6\x1e\xe5\xa6\xd5\xd60\xfa)\xa6kv\xe2\x91\xea\x16B\xb4\x81\x96M\xf4c\xa2i" )
256
base #(list to num)
30
base #(num to list)
lines
m:
    lowercase-alphabet
    show-space
    w( "t's " " shark" )
    catenate #(list+list)
    select
    left-uncons
    32
    -
    left-cons
    4
    copies
    ","
    ( " doo" )
    6
    times #(list)
    catenate #(list+list)
    show-line
    join
    "!"
    show-line