 
 (defn parameter11
   [initGrammar infoList]
-  (if (= (get @initGrammar 10) 1)
+  (if (= (get initGrammar 10) 1)
     (iToC (get infoList 2) initGrammar)
     initGrammar))
 
 
 (defn parameter12
   [initGrammar infoList]
-  (if (= (get @initGrammar 11) 0)
+  (if (= (get initGrammar 11) 0)
     (affixHop infoList initGrammar)
-    @initGrammar))
+    initGrammar))
 
 
 (defn parameter13

    (do (let [sentence (get infoList 2)]
          (if (and (inSentence? sentence "02") (not (inSentence? sentence "01")))
            (do (let [tempGrammar (assoc grammar 5 1)]
                (if (= (get tempGrammar 3) 1)
                  (assoc tempGrammar 3 0)
                  tempGrammar)))
            (if (containsTopicalizable sentence)
              (assoc grammar 3 1)
              grammar))))

(defn iToC
  "11th parameter"
  [sentence currentGrammar]
  
  (let [[g0 g1 g2] (take 3 currentGrammar)]

    (->> currentGrammar
        (iToC_aux1 g0 g1 g2 sentence ,,,)
        (iToC_aux2 g0 g1 g2 sentence ,,,)
        (iToC_aux3 g0 g1 g2 sentence ,,,)
        (iToC_aux4 g0 g1 g2 sentence ,,,)
        (iToC_aux5 g0 g1 g2 sentence ,,,)
        (iToC_aux6 g0 g1 g2 sentence ,,,)
        (iToC_aux7 g0 g1 g2 sentence ,,,)
        (iToC_aux8 g0 g1 g2 sentence ,,,))))


(defn checkForNV01or01VN
