sig
val resolve : string -> string
val getpeername : Pervasives.in_channel -> string
module Ipaddr :
sig
module Ipv4 :
sig
type ip = Int64.t
type cidr = Kwnet.Ipaddr.Ipv4.ip * int
val binary : int64 -> string
val ip_of_string : string -> int64
val cidr_of_string : string -> int64 * int
val octets_of_ip : int64 -> int * int * int * int
val string_of_ip : int64 -> string
val string_of_cidr : int64 * int -> string
val range_of_cidr : int64 * int -> int64 * int64
val within : int64 * int -> int64 -> bool
end
end
val spew : string -> int -> string -> int
end