$a=<>;push(@m,$a);push(@m,'x');$a=pop@m;$b=pop@m;$hash{$a}=$b;$a=<>;push(@m,$a);
push(@m,'y');$a=pop@m;$b=pop@m;$hash{$a}=$b;push(@m,'x');$a=pop@m;push(@m,$hash{
$a});push(@m,'y');$a=pop@m;push(@m,$hash{$a});$a=pop@m;$b=pop@m;push(@m,$b+$a);$
a=pop@m;push(@c,$a);$a=pop@c;push(@c,$a);for(1..$a){push(@m,'x');$a=pop@m;push(@
m,$hash{$a});push(@m,'y');$a=pop@m;push(@m,$hash{$a});$a=pop@m;push(@m,-$a);$a=p
op@m;$b=pop@m;push(@m,$b+$a);push(@m,'2');$a=pop@m;$b=pop@m;for(1..$a){push(@m,$
b);};push(@m,'0');$a=pop@m;$b=pop@m;if($b > $a){push(@c,1)}else{push(@c,0)};$a=p