let options = [
  "-l"Arg.Unit (p Cam_installation.lib_dir), opt_l ;
  "-b"Arg.Unit (p Cam_installation.bin_dir), opt_b ;
  "-m"Arg.Unit (p Cam_installation.man_dir), opt_m ;
  "-t"Arg.Unit (p Cam_installation.templates_dir), opt_t ;
  "-p"Arg.Unit (p Cam_installation.plugins_dir), opt_p ;
  "-q"Arg.Unit (p Cam_installation.pixmaps_dir), opt_q ;
  "-g"Arg.Unit (p Cam_installation.glade_dir), opt_g ;
  "-v"Arg.Unit (p Cam_installation.software_version), opt_v ;
  "--greater"Arg.String greater, opt_greater ;
]