let main () =
  Arg.parse options
    (fun s -> match !dir with
         None -> dir := Some s
       | _ -> failwith "Please give only working copy directory"
    )
    (Printf.sprintf
     "Usage: %s [options] [<directory of a subversion working copy>]\nwhere options are:"
       Sys.argv.(0)
    );
  let dir = match !dir with None -> Filename.current_dir_name | Some d -> d in
  let tdl = tdl_of_svn_log ~login: !login ~title: !group_title ~dir in
  Tdl.print_group Format.std_formatter tdl;
  Format.print_flush ()