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