let raw_cmd_of_str: string -> t = function
    | "bypass"   -> `bypass
    | "code" -> `code
    | "ignore" -> `ignore
    | "text" -> `text
    | s -> failwith (~% "Bad usage of raw_cmd_of_str: %S" s)