ocaml snippet update