Code updated to work with OCaml 456ba0c57b5412f7e040d1cc83fff78da7faf2dc