let cli_name name = let cli_name = "-" ^ name in for i = 1 to String.length name do match cli_name.[i] with | '_' -> cli_name.[i] <- '-' | _ -> () done; cli_name