diff --git a/test.lisp b/test.lisp
new file mode 100644
index 0000000..2ad55d3
--- /dev/null
+++ b/test.lisp
@@ -0,0 +1,11 @@
+(defun read-3-numbers-&-format-sum ()
+  (flet ((prompt (string)
+           (format t "~&~a: " string)
+           (finish-output)
+           (read nil 'eof nil)))
+    (let ((x (prompt "first number"))
+          (y (prompt "second number"))
+          (z (prompt "third number")))
+      (format t "~&the sum of ~a, ~a, & ~a is:~%~%~a~%"
+              x y z (+ x y z)))))
+(read-3-numbers-&-format-sum)
\ No newline at end of file