#!/usr/bin/perl -a
use 5.10.0;
$b++;while($_>$a){$c=$a;$a+=$b;$b=$c;$n++}say$n