say+($_=sqrt 1+8*oct"0b$_")-int?0:1while<>