REBOL[]loop 30[n: 0 print foreach c input[n: n + do pick{\x01\x03\x03\x02\x01\x04\x02\x04\x01\x08\x05\x01\x03\x01\x01\x03
\x01\x01\x01\x01\x04\x04\x08\x04
}to-integer c - 96]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).