(defn adam-func
  ([input-list]
   (adam-func input-list '"" 0)
    )
  ([remaining-list string image-num]
   (cond
     (empty? remaining-list)
     string

     :else
     (adam-func remaining-list (str string " Image number " image-num  " contains " (traverse (first (remaining-list))) " war eagles.\n") (inc image-num))


     )
    )
  )