         ;; return the parse of the whole expression.
         ;; TODO: if a parse for the whole expression is not found,
         ;; return the largest subparse(s).
-        (get (create-xgram-map arg (.size arg) 0 grammar)
-             [0 (.size arg)])
+        (get (create-xgram-map arg (count arg) 0 grammar)
+             [0 (count arg)])
         true
         :error))
 

(declare over)

(defn create-trigram-map [args index grammar bigrams]
  (if (< (+ 2 index) (.size args))
    (do
      (merge
       {[index (+ 3 index)]

                                    (create-xgram-map args (- x 1) 0 grammar))]
               (cond
                (= x 3) (create-trigram-map args index grammar nminus1grams)
                (< (+ x index) (+ 1 (count args)))
                (let [runlevel (if runlevel runlevel 0)]
                  (log/debug (str "create-xgram-map: x=" x "; index=" index "; runlevel=" runlevel))
                  (log/debug (str "  -> create-ngram-map(index:" index ";split-at: " 1 ";x:" x))
