fixed OCaml exercise 1.1