$A=(1+8*oct"0b".$_)**.5,print$A-~~$A?0:1for<>