diff --git a/wipforth.wat b/wipforth.wat
index 81adec5..c9d9404 100644
--- a/wipforth.wat
+++ b/wipforth.wat
@@ -1313,6 +1313,29 @@
  ;;   1+ BRANCH [-28]               \ Increment address, loop to alignment check
  ;; ;
 
+ (data (i32.const 0x081c)
+       "\8c\07\00\00"
+       "\04>CFA\00\00\00"
+       "\00\00\00\00"
+       "\08\02\00\00"  ;; DUP
+       "\70\07\00\00"  ;; NAME-LEN
+       "\18\04\00\00"  ;; LIT
+       "\05\00\00\00"  ;; 5
+       "\c0\02\00\00"  ;; +
+       "\c0\02\00\00"  ;; +
+       "\08\02\00\00"  ;; DUP
+       "\18\04\00\00"  ;; LIT
+       "\03\00\00\00"  ;; 3
+       "\8c\03\00\00"  ;; AND
+       "\b4\04\00\00"  ;; 0BRANCH
+       "\10\00\00\00"  ;; 16
+       "\90\02\00\00"  ;; 1+
+       "\a4\04\00\00"  ;; BRANCH
+       "\e4\ff\ff\ff"  ;; -28
+       "\0c\04\00\00") ;; EXIT
+
+ ;; => 0x50 bytes
+
  ;; : DIGIT ( byte -- value )
  ;;   DUP DUP 48 >= SWAP 57 <= AND  \ Test if 0-9
  ;;   0BRANCH [20]                  \ Jump to A-Z test if not