while source.ocaml while loop