let fibonacci c =
  let rec fibonacciTR count last current =
    match count with
    | 0 -> 1
    | 1 -> 1
    | a -> (fibonacciTR (a - 1) current (last + current)) + current

  fibonacciTR c 1 0;;