let n = stdin.ReadLine () |> int let rec next prev1 prev2 count = if count = 0 then prev2 else next prev2 (prev1+prev2) (count-1) next 0L 1L n |> printfn "%d"