program TEST;
var
  a, b : char;
   c   :  char;
  
begin
   a := 'A';
   b := 'b';
   c := 'C';
   writeln(a,b,a,a,a,a,b,b,b,c);
end.