sig
  val callback : Http_types.request -> Pervasives.out_channel -> unit
  val main : Http_types.daemon_spec -> unit
end