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