let get_TOC ~writer ?(filename="<IN>") 
    ?make_links ?list_type ?numbering ~input_char () =
  let output_funs = 
    Bracetax_TOC_output.create ?list_type ?numbering ?make_links () in
  let printer = Bracetax_generic_printer.build ~writer ~output_funs () in
  Parser.do_transformation printer input_char filename;
  ()