amalloy

;; not sure whether this is an improvement but I don't really like letfn
(defn keep-only
  [n bucket-fn s]
  ((fn my-filter
     [s seen]
     (lazy-seq
      (when (seq s)
        (let [e (first s)
              b (bucket-fn e)
              c (inc (get seen b 0))]