let of_string = function
    | "mixfix" -> Mixfix
    | "prefix" -> Prefix
    | "sexpr" -> Sexpr
    | str -> invalid_arg (sprintf "%s: no such pretty-printing mode" str)