sig
  type t
  val create : unit -> Gstreamer.Loop.t
  val run : Gstreamer.Loop.t -> unit
  val quit : Gstreamer.Loop.t -> unit
end