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