( "\xc7t\x1e}3\x1c\x81d\xf7\x87C\xeaA\xa9\xca\xf7\xa7AzKW\xf1< r\x972\xe7\xeew\xcd\xa3k)\xfd9z5\xc0\x18\xa5\xe9t\x8e\xd9\x22\xfd" )
256
base #(list to num)
27
base #(num to list)
lines
m:
    lowercase-alphabet
    show-space
    select
    s( "c" "t's " )
    s( "x" " shark" )
    left-uncons
    32
    -
    left-cons
    ( "doo" )
    6
    copies
    unwords
    pair
    show-comma
    show-line
    dup2
    @2
    "!"
    show-line