(defn contains-duplicates? [a-seq]
  (let [element (fn element [a-seq] (count a-seq) )]
     (= (apply element a-seq)1)))