$|++;
print "0";
open OUT, ">/dev/null";
select OUT;
eval $ARGV[0];
select STDOUT;
print "\cH1\n";