let ac =
  let a = 'a' in
  let c = 'C' in
  let c_lowercase = Char.lowercase c in
  a::[c_lowercase]