(* カウンタ *)
let counter = ref 0

(* 目的：フィボナッチ数を求める *)
(* fib : int -> int *)
let rec fib n =
 (counter := !counter + 1;
  if n < 2 then n
  else fib (n - 1) + fib (n - 2))