      " " (rand-nth @adjectives)
      " " (rand-nth @nouns)))
 
+(defn say-quote
+    [quotes]
+    (rand-nth @quotes))
+
 (defn primefactors 
     ([n] 
         (primefactors n 2 '()))

                          "time"     (calendar/format-time (calendar/get-calendar))
                          "sunrise"  (schedule/get-sunrise (:geolocation @dyncfg/configuration))
                          "sunset"   (schedule/get-sunset  (:geolocation @dyncfg/configuration))
                          "rainbow"   (apply str (for [color (range 16)]
                                                     (str (char 3) (format "%02d" color) (format "test%02d " color) (char 3) "99")))
                          (cond

                              (and number-cruncher? (is-factorial? input))            (print-factorial input)
                              (and s-expressions?   (is-s-expression? input))         (s-expression input)
                              (congrats? input)                                       (congratulate input)
                              (happy-birthday? input)                                 (happy-birthday input)
                              (is-word-from-known-responses? input) (return-known-response input)
                              (is-word-from-dictionary? input) (return-words-from-dictionary input)
                              (one-word-like-this? input)      (return-word-like-this input)
