OCaml - publish disconnect function