Flatten a List

flat.clj

;; Flatten a Sequence: Write a function which flattens a sequence.
(defn flat [n]
  (let [x (first n)
        xs (rest n)]
    (cond
     (empty? n) '()
     (coll? x) (concat (flat x) (flat xs))
     :else (cons x (flat xs)))))