$b=1;$b+=$a,$a=$b-$a for 1..<>;print$b