while(<>)
{
	chomp;
	s/\^/\(/g;   #subs ^ x (
	s/\$/\)/g;   #subs $ x )
	my $changed=0;
	
	while($changed==0)
	{
		if(s/\([=] (-?\d+) (-?\d+)\)/$1 + $2/eg) # (=  1  1)
		{
		}elsif (s/\([#] (-?\d+) (-?\d+)\)/$1 * $2/eg)
		{
		}elsif (s/\([@] (-?\d+) (-?\d+)\)/$1 - $2/eg)
		{
		}elsif (s/\([@] (-?\d+)\)/-$1/eg)
		{
		}else {	$changed=1;}
	}
	print $_ . "    \n";
}