sig
  module Monad :
    sig
      type 'a t
      val return : '-> 'Bitcoin.HTTPCLIENT.Monad.t
      val fail : exn -> 'Bitcoin.HTTPCLIENT.Monad.t
      val bind :
        'Bitcoin.HTTPCLIENT.Monad.t ->
        ('-> 'Bitcoin.HTTPCLIENT.Monad.t) ->
        'Bitcoin.HTTPCLIENT.Monad.t
      val catch :
        (unit -> 'Bitcoin.HTTPCLIENT.Monad.t) ->
        (exn -> 'Bitcoin.HTTPCLIENT.Monad.t) ->
        'Bitcoin.HTTPCLIENT.Monad.t
    end
  val post_string :
    headers:(string * string) list ->
    inet_addr:Unix.inet_addr ->
    host:string ->
    port:int -> uri:string -> string -> string Bitcoin.HTTPCLIENT.Monad.t
end