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