diff --git a/doc/DRAWL.md b/doc/DRAWL.md
index e0b37e3..453f732 100644
--- a/doc/DRAWL.md
+++ b/doc/DRAWL.md
@@ -1,6 +1,6 @@
 # LISP 1.5 implemented in PLASMA
 
-LISP interpreted in a bytecode VM runnin on a 1 MHz 6502 is going to be sssllllooooowwwww. So I called this implementation DRAWL in keeping with the speech impediment theme.
+LISP interpreted on a bytecode VM running on a 1 MHz 6502 is going to be sssllllooooowwwww. So I called this implementation DRAWL in keeping with the speech impediment theme.
 
 DRAWL represents an exploration REPL language for the PLASMA environment.
 
diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po
new file mode 100644
index 0000000..e5b8ba8
Binary files /dev/null and b/images/apple/DRAWL.po differ
diff --git a/src/lisp/fact.lisp b/src/lisp/fact.lisp
new file mode 100644
index 0000000..f15835d
--- /dev/null
+++ b/src/lisp/fact.lisp
@@ -0,0 +1,8 @@
+(label fact
+         (lambda (n)
+           (cond
+             ((eq n 0) , 1)
+             (t , (* n (fact (- n 1))))
+           )
+         )
+)