         m (.indexOf sentence "Adv")]
     
     (or (= i 0) (= j 0) (= k 0) (= l 0) (= m 0))))
-
-
-(defn isQuestion
-  [x]
-  (= x "Q"))
-
-    
-(defn Verb_tensed
-  [sentence senType]
-  (and (or (isDeclarative senType) (isQuestion senType)) (not (inSentence? sentence "Aux"))))
-
-
-(defn checkForNV01or01VN
-  "Checks if either 'Never Verb 01' or 
-  '01 Verb Never' appear in sentence"
-  [sentence checkForNV01]
-
-  (let [n (.indexOf sentence "Never")
-        v (.indexOf sentence "Verb")  
-        o (.indexOf sentence "01")]
-
-        (if (and (not= n -1) (not= v -1) (not= o -1))
-          (if checkForNV01
-            (< n v o)
-            (< o v n))
-          false)))
-
-
-(defn affixHop_aux1
-  [senType sentence grammar]
-  (if (and (Verb_tensed sentence senType) (checkForNV01or01VN sentence true))
-    (assoc grammar 11 1)
-    grammar))
-
-
-(defn affixHop_aux2
-  [senType sentence grammar]
-  (if (and (Verb_tensed sentence senType) (> (.indexOf sentence "01") 0) (checkForNV01or01VN sentence false))
-    (assoc grammar 11 1)
-    grammar))
-
-                                                  
-(defn affixHop
-  "12th parameter"
-  [infoList initGrammar]
-
-  (let [[senType sentence] (subvec infoList 1)]
-
-    (->> initGrammar
-         (affixHop_aux1 senType sentence)
-         (affixHop_aux2 senType sentence))))
-
-
-(defn S_Aux
-  [sen]
-  (if (isDeclarative (get sen 1))
-    (do (let [i (.indexOf sen "S")]
-          (and (> i 0) (= (+ i 1) (.indexOf sen "Aux")))))
-    false))
-
-
-(defn Aux_S
-  [sen]
-  (if (isDeclarative (get sen 1))
-    (do (let [i (.indexOf sen "Aux")]
-          (and (> i 0) (= (+ i 1) (.indexOf sen "S")))))
-    false))
 
 
 (defn setObligTopic

    grammar))


(defn setWHMovement
  "7th parameter"
  [sentence grammar]
  (if (and (> (.indexOf sentence "+WH") 0) (not (inSentence? sentence "03[+WH]")))
    (assoc grammar 6 0)
    grammar))


(defn setPrepStrand

    grammar))


(defn parameter4
  [grammar infoList]
  (if (and (= (get grammar 3) 1) (= (get grammar 5) 1))
    (setObligTopic infoList grammar)
    grammar))


(defn outOblique
  "Out of obliqueness order"
  [sentence]
  (let [i (.indexOf sentence "01")
        j (.indexOf sentence "02")
        k (.indexOf sentence "P")
        l (.indexOf sentence "03")]

      (cond
        (and (not= i -1) (not= j -1) (not= k -1) (and (< i j k) (= l (+ k 1)))) false        
        (and (not= i -1) (not= j -1) (not= k -1) (and (< l j i) (= k (+ l 1)))) false
        (and (not= i -1) (not= j -1) (not= k -1) (not= l -1)) true
        ;Should never reach this point
        :else true)))


(defn setNullSubj
  "5th parameter,
  Only works for full, not 
  necessarily with CHILDES distribution"
  [infoList grammar]
  (if (and (isDeclarative (get infoList 1)) (not (inSentence? (get infoList 2) "S")) (outOblique (get infoList 2)))
    (assoc grammar 4 1)
    grammar))


(defn parameter5
  [grammar infoList]
  (if (= (get grammar 4) 0)
    (setNullSubj infoList grammar)
    grammar))


(defn setNullTopic
  "6th parameter"
  [sentence grammar]
