module type S3 =sig..end
type ('a, 'b, 'c) t 
val t_of_sexp : (Sexplib.Sexp.t -> 'a) ->
       (Sexplib.Sexp.t -> 'b) ->
       (Sexplib.Sexp.t -> 'c) -> Sexplib.Sexp.t -> ('a, 'b, 'c) tval sexp_of_t : ('a -> Sexplib.Sexp.t) ->
       ('b -> Sexplib.Sexp.t) ->
       ('c -> Sexplib.Sexp.t) -> ('a, 'b, 'c) t -> Sexplib.Sexp.t