2048 in OCaml