9/f(%stdin)(r)file def{/c f read not{exit}if def c true(\(<[{){c ne and}forall{sub abs 3 gt{(failed at: )print(EOL)c 10 ne{f 127 string readline pop( )dup 0 c put print}if = clear 9}if count 0 eq{(yes)= 9}if}if}loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).