type t = Tiger_parser.token val to_string : t -> string