let convert_options = List.map (fun (s,t) -> Printf.sprintf "--conv-%s" s, Arg.Unit (fun () -> mode := Convert t), Printf.sprintf "\tconvert Cameleon1-DBForge file to new format using %s information" s; ) conversions