 (declare get-string)
 (declare plural-en)
 
-(defn fo [input & {show-notes :show-notes}]
+(defn fo [input & {:keys [show-notes]
+                          :or {show-notes true}}]
   (cond 
 
    (= input :fail)

   ;; recursive call after inflecting '(:b :a) to past.
   (get-string {:a (get-in word '(:a))
                  :b {:a (get-in word '(:b :a :past-participle))
                      :b (get-in word '(:b :b))}})

   ;; (could have) + (make X) => "could have made X"
   (and

   ""

   (= true (get-in word '(:a :hidden)))
   (get-string (get-in word '(:b)) :show-notes show-notes)

   (= true (get-in word '(:b :hidden)))
   (get-string (get-in word '(:a) :show-notes show-notes))

   (and (= (get-in word '(:infl)) :conditional)
        (get-in word '(:english))
