$\=$/;$/=$];$_=<>;s/mod/%/;s'
0 /');$_.=("\nERR"';s'
');print;
'g;s'^| ');push@ARGV,($_='gm;s.[-%+^*/].(\$_=pop,(pop)$&\$_).g;s/^\)//gm;s/\^/**/;eval