sig
  type data = unit
  val version : (string * string) list
  val init : string list -> data
  val main : Types.mode -> data -> Netcgi.cgi -> Nethttp.http_status
end