let rec process fibo n =
  pause;
  if n < 2 then
    1
  else
    let n_1 = run (fibo (n-1))
    and n_2 = run (fibo (n-2)) in
    n_1 + n_2

let process main =
   let n = run (fibo 30) in
   print_int n;
   print_newline()
; Gc.print_stat stdout

let () = run main