#!/Perl/bin/perl -w
while ($command = <STDIN>) {
	if ($command eq "!1\n"){
		$block = '';
		open(TESTSCRIPT, 'ts1.pl');
		while ($testLine = <TESTSCRIPT>) {
			$block = $block . $testLine;
		}
		$command = $block;
	}
  $result = eval $command;
  print $@;
	print "\t\t\t== " . $result;
	print "\n";
}