diff --git a/example/hanoi.forth b/example/hanoi.forth
new file mode 100644
index 0000000..a40eb09
--- /dev/null
+++ b/example/hanoi.forth
@@ -0,0 +1,20 @@
+~~~
+'a var
+'b var
+'c var
+'n var
+
+:vars !c !b !a !n ;
+:hanoi (num,from,to,via-)
+  vars
+  @n n:-zero?
+  [
+    @n @a @b @c
+    @n n:dec @a @c @b hanoi
+    vars
+    @b @a '\nMove_a_ring_from_%n_to_%n s:with-format puts
+    @n n:dec @c @b @a hanoi
+  ] if ;
+
+#5 #1 #3 #2 hanoi nl
+~~~