w( "\x03RY\x875\xd4\xb8F\xf2\xcc\x18#\x14\xd2\x8f" "\x08\x918wgi\x10" "\x0ea\\8\xb7~\x94\xd8\xbe\xbf@H=rP\xba" "\x0c9\x16\xb1\x8fW\xe2\x15\xa0$\xab\xb78M\x93\x97" "\x01\xbf\x93Fl\x13" "m\x17\xd4:\xddx\xa7\xc6\x80" )
    256
    base #(list to num)
    digits
    tail
    unwords
m5
show-space
read-nums
    "+"
    times #(list)
    ">"
    dup
    rot
m5
( "\x08/\xae7\xe0\x8e>\xd2R\x12\x0b\xc8\xa0Ot\xca\xb1(\xa1\x19\xdb&\x81$\x14\xc9\xe0k)\x1d\x80``j\x1f]C\xfe|\x80\xca\x85\xeez\xd78M\x10\xd0_\xc6" )
256
base #(list to num)
7
base #(num to list)
100
chunks
5
25
copies
join
( "-.[>]+<" )
select