sig   val some : 'Note.event -> 'a option Note.event   val on_some : 'a option Note.event -> 'Note.event   val value : 'a option Note.event -> default:'Note.signal -> 'Note.event   val bind :     'a option Note.event -> ('-> 'b option) -> 'b option Note.event end