let n = stdin.ReadLine() |> int let rec dp (pre, cur) cnt = match cnt with | _ when cnt = n -> cur | _ -> dp (cur, pre + cur) <| cnt + 1 dp (1L, 1L) 1 |> printfn "%d"