let(@),x=Printf.printf,(+.)let
rec($)(%)s=Scanf.scanf"%f%c"(fun n c->"%.f "@n;c='
'&()="= %.f
"@s%n+.0.&x$0.||("%c "@c;[|( *.);x;x;(-.)|].(Char.code c-42)$s%n));;x$0.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).