sig
  type subservice =
      Netcgi.cgi -> string -> string list -> Nethttp.http_status
  val dispatch :
    ?def:Restful.Pathinfo.subservice ->
    string ->
    (string * Restful.Pathinfo.subservice) list ->
    Netcgi.cgi -> Nethttp.http_status
end