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

  "10th parameter"
  [sentence grammar]
  (if (and (inSentence? sentence "01") (inSentence? sentence "Verb"))
    (do (def i (.indexOf sentence "01"))
        (def j (.indexOf sentence "Verb"))
        (if (and (> i 0) (not= (Math/abs (- i j)) 1))
          (assoc grammar 9 1)
          grammar))
    grammar))



  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 
