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