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