let options = [ "--version", Arg.Unit (fun () -> print_endline Dbf_installation.software_version; exit 0), "\tprint version and exit" ; ]