+BASE, BASE_CFA = defNewVar("BASE", 10)
+NUMBER_CFA = defPrimWord("NUMBER", () -> begin
+ wordAddr = popPS()+1
+ wordLen = mem[wordAddr-1]
+
+ s = getString(wordAddr, wordLen)
+
+ pushPS(parse(Int64, s, mem[BASE]))
+
+ return NEXT
+end)
+
+# Dictionary searches
+
+LFATOCFA_CFA = defPrimWord("LFA>CFA", () -> begin
+
+ addr = popPS()
+ lenAndFlags = mem[addr+1]
+ len = lenAndFlags & F_LENMASK
+
+ pushPS(addr + 2 + len)
+
+ return NEXT
+end)
+
+TOBODY_CFA = defWord(">BODY", [INCR_CFA, EXIT_CFA])
+
+FORTH_CFA = defExistingVar("FORTH", FORTH)
+CONTEXT, CONTEXT_CFA = defNewVar("CONTEXT", zeros(Int64, 100))
+mem[CONTEXT] = FORTH_CFA
+NUMCONTEXT, NUMCONTEXT_CFA = defNewVar("#CONTEXT", 1)
+
+FIND_CFA = defPrimWord("FIND", () -> begin
+
+ countedAddr = popPS()
+ wordAddr = countedAddr + 1
+ wordLen = mem[countedAddr]
+ word = lowercase(getString(wordAddr, wordLen))
+
+ context = mem[CONTEXT:(CONTEXT+mem[NUMCONTEXT])]
+
+ lenAndFlags = 0
+ lfa = 0
+
+ for vocabCFA in reverse(context)
+ callPrim(mem[vocabCFA])
+ lfa = popPS()
+
+ while lfa > 0
+ lenAndFlags = mem[lfa+1]
+ len = lenAndFlags & F_LENMASK
+ hidden = (lenAndFlags & F_HIDDEN) == F_HIDDEN
+
+ if hidden || len != wordLen
+ continue