[/+{add}def/-{sub}def/*{mul}def/^{exp}/{div}>>begin 9{20 string(%stdin)(r)file
1 index readline{pop/r exch def{r cvx exec cvx exec dup dup cvi sub abs 0.01
lt{cvi}if dup dup 2e6 gt{cvi dup =only 3 mod[/.1 0/.4]exch get}if
=}stopped{pop(ERR)=}if}if}repeat
Note that non-ascii characters in the above source code will be escaped (such as \x9f).