var a,b,c:char="1";begin repeat readln(a,b);c:=(b+c+a)[2-ord(c=a)+ord(c=b)];writeln(c)until 0>0end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page