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