sig
  type t
  val make : float -> Ccell.Timeout.t
  val timeout : Ccell.Timeout.t -> float -> '-> 'Ccell.Event.event
  val with_timeout :
    Ccell.Timeout.t ->
    float -> 'Ccell.Event.event -> 'a option Ccell.Event.event
end