(defn counter [_]
  (let [*count (r/atom 0)]
    (fn [_]
      [:button
       {:on-click (fn [evt] (swap! *count inc))}
       @*count])))