let node fib () = n where
  rec n = 0 -> pre (1 -> (pre n) + n)

let node main () =
  let f = fib () in
  print_int f; print_newline ()