diff --git a/splork.lsp b/splork.lsp
index bce0b2b..40c0664 100644
--- a/splork.lsp
+++ b/splork.lsp
@@ -97,5 +97,6 @@
 		(setf generated-sentence (replace-substring generated-sentence "the the" "the"))
 		generated-sentence))
 
-(princ (splork))
-(exit)
+(defun splork-generate ()
+	(princ (splork)))
+