module Http_threaded_tcp_server: sig .. end
sig
end
val serve : ('a -> 'b) -> 'a -> unit
('a -> 'b) -> 'a -> unit