bob0the0mighty

(defn is_palindrome [string]
  (if (<= (count string) 1)
    true
   (if (not= (first string) (last string))
      false
      (recur (rest (reverse (rest string)))))))

(def prod_palindromes
  (for [x (range 100 1000) 
        :let [y (range x 1000)]