let of_string s = let open Sexplib in try return (t_of_sexp (Sexp.of_string s)) with e -> fail (`parse_tags e)