\
\(\*
\*\)
\b[-]?[0-9][0-9_]*[lL]?\b
\b[-]?0[xX][0-9A-Fa-f][0-9A-Fa-f_]*[lL]?\b
\b[-]?0[oO][0-7][0-7_]*[lL]?\b
\b[-]?0[bB][01][01_]*[lL]?\b
\b[-]?[0-9][0-9_]*(\.[0-9_]*)?([Ee][+-]?[0-9][0-9_]*)?
'
'
"
"
true
false
\b[A-Z][A-Za-z0-9_']*
[~?][a-z][A-Za-z0-9_']*
and
class
constraint
exception
external
let
fun
function
functor
in
include
inherit
initializer
method
module
mutable
of
open
private
rec
type
val
virtual
asr
do
else
for
if
while
as
assert
begin
do
done
downto
else
end
for
if
land
lazy
lor
lsl
lsr
lxor
match
mod
new
object
or
sig
struct
then
to
try
when
while
with
#
(\||->)
int
string
list
array
float
char
unit