                                                 (wait wait-ms-for-generation (fn [] (generate spec model))))))]
                       (or (and (not (empty? result)) result)
                           "TIMEOUT.")))))))
+(defn basecamp [])
 
 (defn nextcamp []
   (let [parse (-> "the small dogs you see" parse first)]


(defn parse [surface-string]
  (english/parse surface-string model false)) ;; false: don't truncate.

(defn downtown []
  (let [specs


(declare wait)

(defn relative-clauses []
  ;; TODO: improve performance by using {:mod {:first {:obj :modified}}.
  (let [specs
        [
