sig   val fst : ('a * 'b) Note.event -> 'Note.event   val snd : ('a * 'b) Note.event -> 'Note.event   val v : 'Note.event -> 'Note.event -> ('a * 'b) Note.event end