Real World OCaml, tmp