diff --git a/test/entry.txt b/test/entry.txt
index fee1a24..bc38ad5 100644
--- a/test/entry.txt
+++ b/test/entry.txt
@@ -85,3 +85,19 @@ erase
 "test string
 -> stack size should be 1
 -> stack should be "test string"
+
+# program
+erase
+<< 'one' >>
+-> stack size should be 1
+-> stack should be << 'one'  >>
+
+erase
+<< 'one' 2
+-> stack size should be 1
+-> stack should be << 'one' 2 >>
+
+erase
+<< -> n << n 2 + >> >>
+-> stack size should be 1
+-> stack should be << -> n  << n 2 +  >> >>