(*
*)
#"
"
"
"
/
*
+
-
^
::
@
=
<>
<=
<
>=
>
:=
div
mod
o
before
abstype
and
andalso
as
case
do
datatype
else
end
eqtype
exception
fn
fun
functor
handle
if
in
include
infix
infixr
let
local
nonfix
of
op
open
orelse
raise
rec
sharing
sig
signature
struct
structure
then
type
val
where
with
withtype
while
array
bool
char
exn
frag
int
list
option
order
real
ref
string
substring
unit
vector
word
word8
Bind
Chr
Domain
Div
Fail
Graphic
Interrupt
Io
Match
Option
Ord
Overflow
Size
Subscript
SysErr
false
true
QUOTE
ANTIQUOTE
nil
NONE
SOME
LESS
EQUAL
GREATER