0[/p{print}([){v length 1 sub}(]){( )dup 0 v 4 index get put p}/v(%stdin)(r)file 99 string readline/>>begin v p 1[1 sub{]/ =[sub abs]1 1[{( )p}for}for[]0/ =][-1 0{]}for