: interpretword F_IMMEDIATE & state not or if execute else , then ;
: compileword lookup dup
    if interpretword
    else drop dup number
      if swap drop interpretnumber
      else drop interpretunknown
      then
    then ;
: interpreter
  begin word dup b@ while compileword repeat
  s" ok\n" type drop ;
: loadstring
: loadfile