let t_opt_of_string t_of_string = function
    | "" -> None
    | s -> Some (t_of_string s)