diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm
index e910c96..d197de7 100644
--- a/implementations/scheme-chicken/joy.scm
+++ b/implementations/scheme-chicken/joy.scm
@@ -42,7 +42,8 @@
 
 (define (parse tokens) (parse0 tokens '()))
 
+(define (text-to-expression text) (parse (tokenize text)))
 
-(display (parse (tokenize "ab  cd [[]] 234 [true] false")))
+(display (text-to-expression "ab  cd [[]] 234 [true] false"))
 (newline)