(* File fib.ml *)

let rec fib n =
  if n < 2 then n 
           else fib(n-1) + fib(n-2)
;;


let arg = int_of_string(
     Sys.argv.(1) (* le premier argument sur la ligne de commande *)
   ) 
in
   print_string(
     string_of_int(fib arg)^"\n"
   )
;;