 
   (let [counter (atom 0)]
     (while (< @counter max_eChildren)
-      (println "eChild #" @counter)
+      (println "eChild #" (+ @counter 1))
       (doesChildLearnGrammar? sentences max_sentences)
       (swap! counter inc))))
 

(defn writeResults
  "Writes the results of doesChildLearnGrammar? to output file"
  [lines]
  (with-open [out-file (io/writer "out.csv" :append true)]
            (csv/write-csv out-file [[(get lines 0) (get lines 1) (get lines 2)]])))


(defn updateTimeCourseVector

          (swap! sentenceCount inc))

        (println "Final grammar: " @grammar)
        (writeResults [@grammar @grammarLearned (get @timeCourseVector 0) (get @timeCourseVector 1)])))


(defn runSimulation
