type kind = | Keyword of string| Id of string| Number of float| String of string| Op of string| Punct of string| Eof
type token = {kind : kind;line : int;
}exception Error of int * stringval keywords : string listval tokenize : string -> token listval to_string : kind -> string