let parse () =
  Arg.parse !options
    (fun s -> remaining := s :: !remaining)
    Cam_messages.usage;
  remaining := List.rev !remaining