let lower_first str =
  let str = String.copy str in
  str.[0] <- Char.lowercase str.[0];
  str