Run Length Encoding - Ocaml | SlaveCode