diff --git a/core.fs b/core.fs
index 15df056..dc8ada4 100644
--- a/core.fs
+++ b/core.fs
@@ -313,4 +313,20 @@ cG i,
     'L, k1k0-, '+,  \ add 1 to the addr (1byte for len+field)
     'a,             \ align
 'e, l!
+
+\ `state` variable (**The 1st multi-char word**)
+\ 0: immediate mode
+\ 1: compile mode
+h@          \ save address of cell
+k0k0-,      \ allocate 1 cell and fill 0
+h@          \ save address of word
+W state     \ ( cell word name u )
+l@,         \ fill link
+#B          \ fill length ( cell word name u )
+#{          \ preserve u
+h@~m        \ fill name ( cell word )
+h@ } + h!   \ restore u, increment here
+A           \ align here
+i, 'L, ~, 'e, l!
+
 Q