Возвращение дубликатов в последовательности

Лучшее, что я мог придумать, было:

(defn dups [seq]
  (map (fn [[id freq]] id) 
       (filter (fn [[id freq]] (> freq 1))
               (frequencies seq))))

Есть ли более краткий способ?