sig
  type data
  val loginit : string list -> Restful.ERROR.data
  val handler :
    Restful.ERROR.data ->
    Restful.Types.mode ->
    (Netcgi.cgi -> Nethttp.http_status) -> Netcgi.cgi -> unit
end