do disp(mod((8*base2dec(fgetl(stdin),2)+1)^.5,2)==1) until 1