%{
#include <string.h>
#include <libc/str/tab.h>
#define GPERF_DOWNCASE
%}
%pic
%ignore-case
%compare-strncmp
%language=ANSI-C
%readonly-tables
%define lookup-function-name is_keyword_forth
%%
+loop
2literal
:noname
;
?do
?of
again
begin
begin-structure
case
do
does>
else
end-structure
endcase
endof
exit
fliteral
if
immediate
is
leave
literal
loop
of
postpone
repeat
sliteral
then
to
unloop
until
while
