let string_of_wrap_mode = function
  `NONE -> "none"
| `CHAR -> "char"
| `WORD -> "word"