Recode of the list in Ocaml