     grammar))
 
 
+(defn parameter8
+  [initGrammar infoList]
+  (if (= (get initGrammar 7) 0)
+    (setPrepStrand (get infoList 2) initGrammar)
+    initGrammar))
+
 
 (defn setTopicMark
   "9th parameter"

  (= x "DEC"))


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

(defn hasKa
  [sen]
  (inSentence? sen "ka"))


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


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

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


(defn isImperative
  [x]
  (= x "IMP"))


(defn containsTopicalizable

    grammar))


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


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