an ocr in Ocaml made for a project in EPITA