           basic-spec))
         
         source-model @((get models source-language))
-        source-expression (time (babel.generate/generate source-spec source-model))]
+        source-expression
+        (source-timing-fn (babel.generate/generate source-spec source-model))]
     (let [pairing
           {:target ((:morph (babel.italiano/medium)) target-expression)
            :pred (dag_unify.core/strip-refs


(defn generate-question-and-correct-set-dynamic [target-spec source-language source-locale
                                                 target-language target-locale]
  (let [basic-spec {:synsem {:subcat []
                             :sem {:subj {:city false}}
                             :cat :verb}
                    :modified false}

        target-language (keyword target-language)
        target-model @((get models target-language))
        
        target-expression
        (target-timing-fn (babel.generate/generate target-spec target-model))
        
        pred (dag_unify.core/get-in target-expression
                                    [:synsem :sem :pred])
