[/e{(failed at: )print}/f(%stdin)(r)file/a{/d f read{def d d d 10 eq{counttomark 2 gt{e/EOL}{/yes}ifelse =[}{7 mod 2 and 2 eq{xor 7 gt{e( )dup 0 d put print f 255 string readline pop =[}if}if}ifelse a}if}>>begin[a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).