module a;real x,y;initial repeat(50)begin
$fscanf(1<<31,"%b",x);
y=x**0.5;
$write("%d",(y*8+1)%2==1);
end endmodule