use bigint;$d=2*<>;s//$d&1/ewhile$d/=2;print