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