( "%\x8f\x99\x22,\x13\xd6\xac|\x19\x81\x8f)\xa9m\xacJ[G]\xc1\xd5:\xdb\x1e#$>\xc3Fl+\xb8s\xc4@5\xfd\xe1\x1d\xb9\xb6'~-R?\xa7\x02Nd\xea\xc9gtZ\xe1\x99p]\xe4\xc9`\xa3\r\x16$\x90{\x81\xa0\xdd\xa7\x83Q\x12s:\x94m<\xcau@b\xa8\x14\xef\xe6\xc4+\x88K%\xc8\x17\xcc\xc3\x96,\xdbO\xde\xfe+\x84\xf9B\xda]5\xf3e\xb8\xeb\x18\x0b\xf8\x91s\xbdx\x22\x11\xba\x0f4\xb8U-\xdcEg,?r\xec$\xb2\xdc9b\x89\x00\x86\x01Nt\xc8V\xd2\xc7c\xd1\x10r\xd9QK\xcf\xa4\x877\xee\xbdR\xa3\xe6Ee\xa1\xdd.\x7f\x1a\x82p\x98\xc0&/\xf7\xd4\\iz\x89^{\x92;\xb7\xc0\xc5Y\xb4\xbe\x1bg\xb2|\x8a\xc6pv1\xee\xa5\xc3\xf7\xdb\xb0\x90x\x84c,7\xf8" )
nip
256
base #(list to num)
52
base #(num to list)
lines
left-uncons
swap
@4
dup
half
crange
catenate #(list+list)
pop-a
    push-a
    select
    flatten
b3
4
times #(eval)
lowercase-alphabet
show-line
lowercase-alphabet
pair
show-comma
select
lines
    left-uncons
    95
    &
    left-cons
m4
unlines