     (assoc grammar 12 "0")))
 
 
-(defn parameter1
+(defn setSubjPos
+  "Parameter 1"
   [grammar infoList]
   (if (= (get grammar 0) "0")
-    (setSubjPos infoList grammar)))
+    (do (def sen (get infoList 2))
+        (if (and (in? sen "01") (in? sen "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")))))
+    grammar))
 
 
 (defn parameter2


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

  (swap! currentGrammar (parameter1 grammar infoList))
  (println "currG 1: " currentGrammar)

  (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]
  (println "sentence: " sentence)
  (println "e: " e)
  (> (.indexOf sentence e) -1))


(defn isDeclarative
