ocaml: fix negative numbers handling