module Ast =
Ast_gen.Ast_generator
  (struct 
     type varidinfo = string
     type tyidinfo = string
     type conidinfo = string
     type stridinfo = string
     type sigidinfo = string
     type fctidinfo = string
     type labelinfo = string
     type tyvarinfo = string
     let print_varidinfo = Format.printf "%s"
     let print_tyidinfo = Format.printf "%s"
     let print_conidinfo = Format.printf "%s"
     let print_stridinfo = Format.printf "%s"
     let print_sigidinfo = Format.printf "%s"
     let print_fctidinfo = Format.printf "%s"
     let print_labelinfo = Format.printf "%s"
     let print_tyvarinfo = Format.printf "%s"
   end)
  (struct
     type info = Location.t
     let print = Location.print Format.std_formatter
   end)