let wrap_mode_of_string = function
  "char" -> `CHAR
| "word" -> `WORD
| _ -> `NONE