4{(%stdin)(r)file token pop}repeat/o{=only}def(2)print count 3 eq{2 index
o(+)print exch o(->2)print}{3 index o(+5)print 2 index o(->4)print exch
o(+2)print}ifelse =
Note that non-ascii characters in the above source code will be escaped (such as \x9f).