sig   val some : 'Note.event -> 'a option Note.event   val evict : none:'Note.signal -> 'a option Note.event -> 'Note.event end