ocaml snippets