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