correct ocamlfind function