sig
  type t
  val me :
    ?qs:(string * string) list ->
    ?pi:string list -> Netcgi.cgi -> Restful.Url.t
  val to_string : Restful.Url.t -> string
  module P :
    sig
      val zap : Restful.Url.t -> Restful.Url.t
      val replace : string list -> Restful.Url.t -> Restful.Url.t
    end
  module Q :
    sig
      val zap : Restful.Url.t -> Restful.Url.t
      val replace : string -> string -> Restful.Url.t -> Restful.Url.t
      val add : string -> string -> Restful.Url.t -> Restful.Url.t
      val delete : string -> Restful.Url.t -> Restful.Url.t
    end
end