let rec fibonacci x = match x with
| 0 -> 0
| (n < 3) -> print_int(n-1); fibonacci (n-1)
| (n > 3) -> print_int(n); fibonacci (n - 1) + fibonacci (n - 2)
;;