[/+{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).