Program Snikerz;
Type Mas = array [1..10000] of Char;
Var a, b: Mas;
    s: String;
    n, i, j, d, l: Longint;
Begin
   assign (input, 'in.txt');
   reset (input);
   Readln (n);
   d := 0;
   l := 1;
   For i := 1 to n do Begin
      Readln (s);
      For j := 1 to length(s) do Begin
         a[l]:=s[j];
         inc (l);
      End;
      d := d + length(s);
   End;
   l := 1;
   For i := d Downto 1 do 
      If (a[i] in ['a'..'z'])or(a[i] in ['A'..'Z'])or(a[i] in ['À'..'ß'])or(a[i] in ['à'..'ÿ']) then Begin
         b[l] := a[i];
         inc (l);
      End;
   l := 1;
   For i := 1 to d do 
      If (not(a[i] in ['a'..'z']))and(not(a[i] in ['A'..'Z']))and(not(a[i] in ['À'..'ß']))and(not(a[i] in ['à'..'ÿ'])) then Write (a[i])
      else Begin
         If (a[i] in ['a'..'z'])and(b[l] in ['A'..'Z']) then b[l]:=chr(ord(b[l])+32)
         else If (b[l] in ['a'..'z'])and(a[i] in ['A'..'Z']) then b[l]:=upcase(b[l])
         else If (a[i] in ['à'..'ÿ'])and(b[l] in ['À'..'ß']) then b[l]:=chr(ord(b[l])+32)
         else If (b[l] in ['à'..'ÿ'])and(a[i] in ['À'..'ß']) then b[l]:=upcase(b[l]);
         Write (b[l]);
         inc (l);
      End;
   Close(input);
End.