type kind = | Name of string| Keyword of string| Binary of string| Int of int| Large of bool * int list| Float of float| Char of char| String of string| Symbol of string| Array_start| Lparen| Rparen| Lbracket| Rbracket| Caret| Assign| Period| Semicolon| Bar| Colon| Eof
type token = {kind : kind;start : int;stop : int;
}exception Error of int * stringval tokenize : string -> token arrayval to_string : kind -> stringval small_of_bytes : bool -> int list -> int option