     (def source
       (for [line (line-seq rdr)] (removeEmptyLineOrComment line)))
     (doseq [x (remove empty? source)]
-      (tokenReader x))))
+      (tokenReader (parser x)))))
 
 (defn checkSource
   "Check if source file exists."

  [bytecode]
  (spit outputFile bytecode :append true))

(defn tokenReader
  "Reads a token."
  [token]
  (def t (parser token))
  (println (apply array-map t))
  (println (second t)))

(defn removeEmptyLineOrComment
  "Find and remove empty lines and comments from the source code."

  (:use [clojure.algo.generic.functor :only (fmap)])
  (:use [clojure.java.io])
  (:require [clojure.string :as string])
  (:require [instaparse.core :as insta])
  (:require [clojure.walk :as walk])
  (:gen-class))
