print $OUT $res, "\n" unless $@;

##</code><code>##

    $res = eval($_), "\n";