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