   and if they appear sequentially"
   [infoList initGrammar]
   (if (and (not= nil (inSentence? (get infoList 2) "03")) (not= nil (inSentence? (get infoList 2) "P")))
-    (do (def first (.indexOf (get infoList 2) "03"))
+    (do (let [first (.indexOf (get infoList 2) "03")]
         ;If 03 followed by P
         (if (and (> first 0) (= (.indexOf (get infoList 2) "P") (+ first 1)))
           (assoc initGrammar 1 1)
-          initGrammar))
+          initGrammar)))
     initGrammar))
 
 

  currentGrammar"
  [currentGrammar grammarID]

  (def binType (str/split (Integer/toString (int (read-string (get grammarID 0))) 2) #""))

  (if (< (count binType) 13)
    (do (def tempVec (vec (repeat (- 13 (count binType)) 0)))
      (def paddedBT (concat tempVec binType))
      (= @currentGrammar paddedBT))
    (= @currentGrammar binType)))


(comment 

  "Checks if either 'Never Verb 01' or 
  '01 Verb Never' appear in sentence"
  [sentence checkForNV01]

  (let [n (.indexOf sentence "Never")
        v (.indexOf sentence "Verb")  
        o (.indexOf sentence "01")]

        (if (and (not= n -1) (not= v -1) (not= o -1))
          (if checkForNV01
            (< n v o)
            (< o v n))
          false)))


(defn affixHop_aux1
