sig
  type t
  val id : Useri.Touch.t -> int
  val did : Useri.Touch.t -> int
  val pos : Useri.Touch.t -> Gg.p2 React.signal
  val dpos : Useri.Touch.t -> Gg.v2 React.event
  val pressure : Useri.Touch.t -> float React.signal
  val over : Useri.Touch.t -> [ `Cancel | `Up ] React.event
  val start : Useri.Touch.t list React.event
end