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