   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))
 
 

  "Checks if either 'Never Verb 01' or 
  '01 Verb Never' appear in sentence"
  [sentence checkForNV01]
  (def n (.indexOf sentence "Never"))
  (def v (.indexOf sentence "Verb"))
  (def 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

  currentGrammar"
  [currentGrammar grammarID]

  (let [binType (str/split (Integer/toString (int (read-string (get grammarID 0))) 2) #"")]
    (if (< (count binType) 13)
      (do (let [tempVec (vec (repeat (- 13 (count binType)) 0))
                paddedBT (concat tempVec binType)]

          (= @currentGrammar paddedBT)))
      (= @currentGrammar binType))))


(comment 
