use bigint; $a=1; $b=0; $n=<>+0; $i=1; while($a%$n){ ($a,$b)=($a+$b,$a); ++$i; } print$i;