[/p{print}([){v length 1 sub}(]){( )dup 0 v 4 index get put p}/v(%stdin)(r)file 99 string readline/>>begin v p 0 1[1 sub{]/ =[sub abs]1 1[{( )p}for}for[]0/ =][-1 0{]}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).