let string_of_token = let l = List.map (fun (a,b) -> (b,a)) token_kw in fun t -> try List.assoc t l with Not_found -> "<other>"