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