 (defn setNullTopic
   "6th parameter"
   [sentence grammar]
-  (if (and (in? sentence "02") (= (in? sentence "01") false))
+  (if (and (in? sentence "02") (not (in? sentence "01")))
     (assoc grammar 5 1)
     grammar))
 

    (do (def i (.indexOf sentence "01"))
        (def j (.indexOf sentence "Verb"))
        (if (and (> i 0) (not= j -1) (not= (Math/abs (- i j)) 1))
          (assoc grammar 9 "1")
          grammar))
    grammar))


(defn iToC_aux1
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 "0") (= g1 "0") (= g2 "0") (S_Aux sentence))
    (assoc grammar 10 "0")
    grammar))


(defn iToC_aux2
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 "1") (= g1 "1") (= g2 "1") (Aux_S sentence))
    (assoc grammar 10 "0")
    grammar))


(defn iToC_aux3
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 "1") (= g1 "0") (= g2 "1") (Aux_Verb sentence))
    (assoc grammar 10 "0")
    grammar))


(defn iToC_aux4
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 "0") (= g1 "1") (= g2 "0") (Verb_Aux sentence))
    (assoc grammar 10 "0")
    grammar))


(defn iToC_aux5
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 "0") (= g1 "0") (= g2 "1") (S_Aux sentence))
    (assoc grammar 10 "0")
    grammar))


(defn iToC_aux6
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 "1") (= g1 "1") (= g2 "0") (Aux_S sentence))
    (assoc grammar 10 "0")
    grammar))


(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 iToC_aux8
  [g0 g1 g2 sentence grammar]
  (if (and (= g0 "0") (= g1 "1") (= g2 "1") (or (Verb_Never sentence) (hasKa sentence)))
    (assoc grammar 10 "0")
    grammar))



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

