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