   (if (and (not= nil (inSentence? (get infoList 2) "03")) (not= nil (inSentence? (get infoList 2) "P")))
     (do (def 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))
+        (if (and (> first 0) (= (.indexOf (get infoList 2) "P") (+ first 1)))
+          (assoc initGrammar 1 1)
+          initGrammar))
     initGrammar))
 
 

        (if (empty? remainingFuncs)
          [currentGrammar, (isGrammarLearned? currentGrammar infoList)]
          (let [[func & remaining] remainingFuncs]
            (recur (reset! currentGrammar (func infoList currentGrammar))))))))
)


(defn setParameters

  grammar based on its sentence content and structure"
  [infoList currentGrammar]

  (reset! currentGrammar   
      (-> @currentGrammar       
          (parameter1 ,,, infoList)
          (parameter2 ,,, infoList)
          (parameter3 ,,, infoList)
          (parameter4 ,,, infoList)
          (parameter5 ,,, infoList)
          (parameter6 ,,, infoList)
          (parameter7 ,,, infoList)
          (parameter8 ,,, infoList)
          (parameter9 ,,, infoList)
          (parameter10 ,,, infoList)
          (parameter11 ,,, infoList)
          (parameter12 ,,, infoList)
          (parameter13 ,,, infoList))))


(defn consumeSentence
