let main () =
  Arg.parse options
    (fun _ -> ())
    (Printf.sprintf "Usage: %s [options]\nwhere options are:" Sys.argv.(0));
  let s = string_of_in_channel !ic in
  let g = Tdl.group_of_string s in
  print !oc g;
  close_in !ic;
  close_out !oc;
  match !gen_css with
    None -> ()
  | Some f ->
      let oc = open_out f in
      output_string oc default_style_sheet;
      close_out oc