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";
]