sig
val token_to_string : Parser.token -> string
val descan : Parser.token -> string
val token_list :
(Lexing.lexbuf -> Parser.token) -> Lexing.lexbuf -> Parser.token list
val from_channel : Pervasives.in_channel -> Parser.token list
val pprint_token_list : string -> Parser.token list -> unit
val pprint_token_lines :
string -> (int * Parser.token list * bool) list -> unit
val inspect_ast_lit : Ast.lit -> string
val inspect_ast_arith : Ast.arith -> string
val inspect_ast_numtest : Ast.numtest -> string
val inspect_ast_combtest : Ast.combtest -> string
val inspect_ast_op : Ast.op -> string
val inspect_ast_expr : Ast.expr -> string
val inspect_ast_var_def : Ast.var_def -> string
val inspect_ast_stmt : Ast.stmt -> string
val inspect_ast_clause : Ast.expr option * Ast.stmt list -> string
val inspect_ast_class_section : Ast.class_section -> string
val inspect_ast_func_def : Ast.func_def -> string
val inspect_ast_member_def : Ast.member_def -> string
val inspect_ast_class_sections : Ast.class_sections_def -> string
val inspect_ast_class_def : Ast.class_def -> string
end