1 files changed, 8 insertions, 1 deletions
diff --git a/samples/list.sample b/samples/list.sample
index 914522f..b3fc947 100644
--- a/samples/list.sample
+++ b/samples/list.sample
@@ -12,6 +12,13 @@ define append
     $append_val forget $append_phrase forget
     ;
 
+define stack-empty? stack-size 0 eq? ;
+
+define ..
+    [ stack-empty? not ]
+        [ . ] loop
+    ;
+
 [ 2 3 ] 1 prepend .
 [ 2 3 ] 4 append .
-[ 1 2 3 ] pop . .
-\ No newline at end of file
+[ 1 2 3 ] pop ..
+\ No newline at end of file