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