sig
  type t = [ `Call | `Put ]
  val of_string : string -> t
  val to_string : t -> string
  val tws_of_t : t -> Tws_prot.raw_tws
  val t_of_tws : Tws_prot.raw_tws -> t
  val val_type : t Tws_prot.Val_type.t
  val t_of_sexp : Sexplib.Sexp.t -> Option_right.t
  val __t_of_sexp__ : Sexplib.Sexp.t -> Option_right.t
  val sexp_of_t : Option_right.t -> Sexplib.Sexp.t
end