module m;integer X,Y,v;initial begin
for(v=0;$fscanf(1<<31,"%d%d",X,Y);v++)$write(Y/10%11?X%10:Y/100);end
endmodule