type kind = | Keyword of string| Name of string| Int of int| Char of char| String of string| Symbol of string| Eof
type token = {kind : kind;line : int;col : int;
}exception Error of int * int * stringval tokens : string -> token listval keywords : string listval show : kind -> string