diff --git a/wipforth.wat b/wipforth.wat
index 6679578..8499d52 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1095,6 +1095,16 @@
 
  ;; : TUCK DUP -ROT ;
 
+ (data (i32.const 0x05e4)
+       "\d0\05\00\00"
+       "\04TUCK\00\00\00"
+       "\00\00\00\00"
+       "\08\02\00\00"  ;; DUP
+       "\44\02\00\00"  ;; -ROT
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x1c bytes
+
  ;; : SPACE? ( byte -- bool )
  ;;   DUP 9 = SWAP                 \ Compare to horizontal tab
  ;;   DUP 10 = SWAP                \ Compare to line-feed