soulflyer

(defn find-name
  "Returnd the name of the first matching thing found in things
  or nil if not found"

  ([thing things]
     (if (= (val (first things)) thing)
       (key (first things))
       (if (< 1 (count things))
         (find-name thing (rest things))))))