let ocaml_char = function | "'" -> "\\'" | c -> c