#version 00000000

[line_comment]

[block_comment]
{ }
(* *)

[string_literal]
' '

[char_constant]

[keyword]
and
array
begin
case
const
div
do
downto
else
end
file
for
forward
function
goto
if
in
label
mod
nil
not
of
or
packed
procedure
program
record
repeat
set
then
to
type
until
ver
while
with