diff --git a/lib/lisp/repl/repl.lisp b/lib/lisp/repl/repl.lisp
new file mode 100644
index 0000000..97206dd
--- /dev/null
+++ b/lib/lisp/repl/repl.lisp
@@ -0,0 +1,9 @@
+(defun repl ()
+  (let1 (val (read))
+    (when val
+        (print (eval val))
+        (repl))))
+
+(defun main ()
+  (print "Welcome to the Bluejay REPL!")
+  (repl))
diff --git a/lib/lisp/std/list-functions.lisp b/lib/lisp/std/list-functions.lisp
new file mode 100644
index 0000000..a777401
--- /dev/null
+++ b/lib/lisp/std/list-functions.lisp
@@ -0,0 +1,5 @@
+(defun mapcar (fun list)
+  (if list
+      (cons (funcall fun (car list))
+            (mapcar fun (cdr list)))
+      nil))
diff --git a/lib/lisp/std/std.lisp b/lib/lisp/std/std.lisp
index 388637b..d995f0e 100644
--- a/lib/lisp/std/std.lisp
+++ b/lib/lisp/std/std.lisp
@@ -23,7 +23,7 @@
 
 ;; Instead of a function this is a macro for a slight performance increase
 (defmacro not (val)
-  (nilp val))
+  (list 'nilp val))
 
 ;; TODO: make tail recursive (for this `flet` would be nice)
 (defun length (list)
@@ -46,3 +46,10 @@
   (list 'if cond
     nil
     (cons 'progn body)))
+
+(defun read ((stream nil))
+  (if (not stream)
+    (read-stdin)))
+
+(print "Loading list functions")
+(print (load "list-functions.lisp"))