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