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