     (do (def i (.indexOf sen "Aux"))
         (and (> i 0) (= (+ i 1) (.indexOf sen "S")))))
   false)
-
-
-;First parameter
-(defn setSubjPos
-  [sen grammar infoList]
-  (if (and (in? (get infoList 2) "01") (in? (get infoList 2) "S"))
-    ;;Check if 01 and S are in the sentence    
-    (do (def first (.indexOf sen "01"))
-        (if (and (> first 0) (< first (.indexOf sen "S")))
-          (assoc grammar 0 "1")))))
 
 
 ;2nd parameter

    (assoc grammar 12 "0")))


(defn parameter1
  [grammar infoList]
  (if (= (get grammar 0) "0")
    (setSubjPos infoList grammar)))


(defn parameter2


(defn setParameters
  "Uses grammar, infolist"
  [infoList initGrammar]
  
  (def currentGrammar (atom []))

  (reset! currentGrammar (setSubjPos initGrammar infoList))
  (swap! currentGrammar (parameter2 currentGrammar infoList))
  (swap! currentGrammar (parameter3 currentGrammar infoList))
  (swap! currentGrammar (parameter4 currentGrammar infoList))
