sig
  exception Http_error of (int * string)
  val get :
    ?head_callback:(Http_types.status -> (string * string) list -> unit) ->
    string -> string
  val get_iter :
    ?head_callback:(Http_types.status -> (string * string) list -> unit) ->
    (string -> unit) -> string -> unit
  val head : string -> string
end