let list_style (error_msg:Error.message -> unit) = function
    | "item" -> `itemize
    | "enum" -> `numbered
    | s -> error_msg (`unknown_list_style s); `itemize