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