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