([){concatstrings}def/f{{(\))[(\()exch[}if}def{{(%stdin)(r)file 1 string
readstring pop/b 86 2 index 0 get mod 19 and def dup(\n)eq{def =}{b 18 lt{3 1
roll b le f[3 1 roll b lt f exch[}if b 1 or}ifelse}loop}stopped
Note that non-ascii characters in the above source code will be escaped (such as \x9f).