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