diff --git a/janet/scanner.janet b/janet/scanner.janet
index 43c5de6..cc5ff7b 100644
--- a/janet/scanner.janet
+++ b/janet/scanner.janet
@@ -217,6 +217,16 @@
         :else (add-error scanner (string "Unexpected " curr " after word " word ".")))))
   (recur scanner (buffer char)))
 
+(defn- add-pkg
+  [char scanner]
+  (defn recur [scanner pkg]
+    (let [curr (current-char scanner)]
+      (cond
+        (terminates? curr) (add-token scanner :pkg :none)
+        (word-char? curr) (recur (advance scanner) (buffer/push pkg curr))
+        :else (add-error scanner (string "unexpected " curr " after pkg name " pkg)))))
+  (recur scanner (buffer char)))
+
 (defn- add-ignored
   [scanner]
   (defn recur [scanner ignored]
@@ -302,7 +312,7 @@
       (cond
         (whitespace? char) scanner ## for now just skip whitespace characters
         (digit? char) (add-number char scanner)
-        (upper? char) (add-word char scanner) ## no datatypes for now
+        (upper? char) (add-pkg char scanner) 
         (lower? char) (add-word char scanner)
         :else (add-error scanner (string "Unexpected character: " char))))))