 
 (defn setParameters
   "Uses grammar, infolist"
-  [infoList grammar]
+  [infoList initGrammar]
   
   (def currentGrammar (atom []))
 
-  (swap! currentGrammar (parameter1 grammar infoList))
-  (println "currG 1: " currentGrammar)
-
+  (reset! currentGrammar (setSubjPos initGrammar infoList))
   (swap! currentGrammar (parameter2 currentGrammar infoList))
   (swap! currentGrammar (parameter3 currentGrammar infoList))
   (swap! currentGrammar (parameter4 currentGrammar infoList))


(defn in?
  "Returns true if e is an element of sentence"
  [sentence e]  
  (some #(= e %) sentence))


(defn isDeclarative

    (do (def i (.indexOf sen "Aux"))
        (and (> i 0) (= (+ i 1) (.indexOf sen "S")))))
  false)


;2nd parameter
