( "Th" )
nip
( "\xd6\xdc|<\x83\xa48\n,\xa4\xa1O\x08G\xaf!\xd4\x98\xf1\xd1\x1b[\xa97" )
256
base #(list to num)
28
base #(num to list)
    lowercase-alphabet
    show-line
    show-space
    get
m4
lines
dump
words
push-d
get
catenate #(list+list)
right-uncons
diff #(list-elem)
"."