type t = unit val create : unit -> t Note.signal * Brr.El.t