kathy's sandbox poll fn (quick and dirty)

poll.clj

(defn poll []
  (let [opts (atom {})]
    (fn [& args]
      (if (empty? args)
          (when (seq @opts)
            (print-table (for [[k v] (reverse (sort-by last @opts))]
                                               {:name k :votes v})))
          (doseq [arg args
                  :when (or (string? arg) (keyword? arg))
                  :let [arg (keyword arg)]]
            (swap! opts
                   #(update-in % [arg] (fnil inc 0))))))))