let upper_first str =
  let str = String.copy str in
  str.[0] <- Char.uppercase str.[0];
  str