small scripts from Real World OCaml