module c;integer c,d;while(!(&c))begin d=0;c=48;while(c!=10)begin d=d*2+c-48;c=1<<31;c=$fgetc(c);end c=1;while(d>0)begin d=d-c;c=c+1;end $write("%d ",!(&d));end endmodule