sig
  val parse_ssh_client :
    unit -> [ `From of Unix.Inet_addr.t | `Nowhere ] Or_error.t
end