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