sig
  exception Time_not_available
  val remote_time : ?timeout:int -> Unix.inet_addr -> float
end