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