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