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