(let [c (ev/chan 1) before (ev/count c)] (ev/give c :hi) [before (ev/count c)]) # => '(0 1)