let stop v =
  Event.sync (Event.send v.channel `exit)