let parse () =
  try
    let _ = Arg.parse !options
        (fun s ->
          match !file with
            None -> file := Some s;
          | Some f -> raise (Failure Rep_messages.usage)
        )
        (Rep_messages.usage^Rep_messages.options_are)
    in
    ()
  with
    Failure s ->
      prerr_endline s ;
      exit 1