[9{(%stdin)(r)file 80 string readline pop}repeat]0 0 2 index{length 2 index sub
max exch 1 add exch}forall 1 sub -1 -9{dup 2 mul 3 index{{2 index 1 getinterval
exch{( )print}repeat print 3}stopped{def pop 4 add}if exch 1 add exch}forall
def()=}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).