                            symbols)
           :else (recur (next symbols)
                        (cons symbol namespace))
-        )
-      )
-    )
+        )))))
+
+(defn process-class [symbols]
+  (let [symbol (first symbols)])
   )
-)
-
-(defn process-import [symbols]
-  (println "import")
-  symbols)
 
 (defn process-symbols [symbols]
-  (loop [symbols symbols]
-    (if (not (nil? symbols))
-      (let [symbol (first symbols)]
-        (recur
-          (cond
-            (= symbol "package") (process-package (next symbols))
-            (= symbol "import")  (process-import (next symbols))
-            :else (next symbols)))))))
+  (if (not (nil? symbols))
+    (let [symbol (first symbols)]
+      (recur
+        (case symbol
+          "package" (process-package (next symbols))
+          "import"  (process-package (next symbols))
+          "class"   (process-class (next symbols))
+          (next symbols))))))
 
 (defn read-java [] (slurp "test.java"))
 


(defn pad-all-symbols
  [str]
  (loop [p (vec punctuation)
         s str]
    (if (empty? p)
      s
      (recur
        (rest p)
        (pad-symbol s (first p)))
    )
  ) 
)

(defn get-symbol-stream
  []

    "protected"
    "internal"})

(def special-characters
  #{
    "{" "}"
    "(" ")"
