let up = Char.uppercase in
let  big_xy = List.map up "xy" in
let  big_ab = List.map up "ab" in
  big_ab @ big_xy;;