let options = [
  "-t"Arg.Set_string title, "<title>  set <title> as title of the channel" ;
  "-l"Arg.Set_string link, "<url>  set <url> as link of the channel" ;
  "-d"Arg.Set_string desc, "<s>  set <s> as description of the channel" ;
  "-e"Arg.String (fun s -> exec := Some s),
  "<options>  execute \"cvs log <options>\" to get the log rather than read it from stdin" ;
  "-maxitems"Arg.Int (fun n -> max_items := Some n), "<n>  keep only <n> items maximum";
]