perms

(defn perms [bag]
  "Gets all permutations in a bag of items. Assumes they are distinct"
    (lazy-seq
      (if (empty? bag) '(())
        (mapcat (fn [x]
                  (map #(cons x %) (perms (remove #(= x %) bag)))) bag))))