: <table \ comp: ( -<string">- ) run: ( -- addr len )
STATE @ \ 0: 執行態 非0: 編譯態
IF
COMPILE (S>) ,>
COMPILE .<table
ELSE
_<table
THEN
; IMMEDIATE