     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

    grammar))


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

        (iToC_aux7 g0 g1 g2 sentence)
        (iToC_aux8 g0 g1 g2 sentence))))


(defn parameter11
  [initGrammar infoList]
  (if (= (get initGrammar 10) 1)
    (iToC (get infoList 2) initGrammar)
    initGrammar))


(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 parameter12
  [initGrammar infoList]
  (if (= (get initGrammar 11) 0)
    (affixHop infoList initGrammar)
    initGrammar))


(defn questionInver
  "13th parameter"
  [sentence grammar]
  (if (inSentence? sentence "ka")
    (assoc grammar 12 0)
    grammar))


(defn parameter13
