sig
  type 'a t
  val create : unit -> 'LablgtkReact.FRP.t * ('-> unit)
  val fold : ('-> '-> 'a) -> '-> 'LablgtkReact.FRP.t -> unit
end