     grammar))
 
 
+(defn Aux_Verb
+  [sen]
+  (and (isDeclarative (get sen 1)) (= (.indexOf sen "Aux") (- (.indexOf sen "Verb") 1)))) 
+
+
 (defn iToC_aux3
   [g0 g1 g2 sentence grammar]
   (if (and (= g0 1) (= g1 0) (= g2 1) (Aux_Verb sentence))

    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 hasKa
  [sen]
  (inSentence? sen "ka"))


(defn Never_Verb
  [sen]
  (and (isDeclarative (get sen 1)) (= (.indexOf sen "Never") (.indexOf sen "Verb")) ((= (.indexOf sen "Aux") -1))))


(defn iToC_aux7
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 1) (= g1 0) (= g2 0) (or (Never_Verb sentence) (hasKa sentence)))
    (assoc grammar 10 0)
    grammar))


(defn Verb_Never
  [sen]
  (and (isDeclarative (get sen 1)) (= (.indexOf sen "Verb") (- (.indexOf sen "Never") 1)) ((= (.indexOf sen "Aux") -1))))


(defn iToC_aux8
