(defn is-small? [number]
  (if (< number 100) "yes" "no"))
(defn add
     [a b]
  (fn [a b]
      (if (is-small? 50)
         a b)))