(%stdin)(r)file 80 string readline pop dup length 1 1 2 index{3 copy sub 2
index getinterval dup print 1 index 1 sub -1 0{2 copy 1 getinterval print
pop}for def()=}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).