val validHost : string -> bool
val validDomain : string -> bool
+ val ip : string Env.arg
+
val registerBefore : (string -> unit) -> unit
val registerAfter : (string -> unit) -> unit
(* Register handlers to run just before and after entering a domain