program strsort;
 var f1,f2,conf:text; 
	 n:integer;
	 a:array[1..1000] of string; 
	 i,k,e,q:integer; 
	 r:integer; 
	 s,s1,s2,t:string;
	 opt1,opt2,opt3:integer; 
 function trlit(a:string):string;
 var s:string;
	 q:string;
	 t,k:integer;
 begin
  q:='';
  s:='';
  k:=1;
  t:=length(a);
  while k<=t do begin
  case a[k] of
			... (тут все буквы большого и малого регистра кириллицы и их аналоги в транслите)
			else s:=a[k];
			end;
 if length(s)>=2 then begin t:=t+length(s); k:=k+length(s); end;
 q:=q+s;
 k:=k+1;
 end;
 trlit:=q;
 end;
 function up(s:string):string;
  var stmp:string;
	  z:byte;
	  c:char;
  begin
   stmp:='';
	for z:=1 to length(s) do
	begin
	 c:=s[z];
	 case c of
	  'а'..'п':stmp:=stmp+chr(ord(c)-32);
	  'р'..'я':stmp:=stmp+chr(ord(c)-80);
	  else stmp:=stmp+upcase(c);
	 end;
	end;
  up:=stmp;
 end;
 function sravn(s1,s2:char):integer;
 begin
  if s1<s2 then sravn:=1;
  if s1=s2 then sravn:=0;
  if s1>s2 then sravn:=2;
 end;
 function probel(s:string):string;
  var i,l:integer;
 begin
  l:=length(s); 
  for k:=1 to l do for i:=1 to l do if s[i]=' ' then begin delete(s,i,1); l:=l-1; end;
  probel:=s;
 end;
begin
 assign(f1,'input.txt');
 assign(f2,'output.txt');
 assign(conf,'config.txt');
 reset(conf);
 read(conf,opt1,opt2,opt3);
 close(conf);
 if ((opt1<>0) and (opt1<>1)) or ((opt2<>0) and (opt2<>1)) or ((opt3<>0) and (opt3<>1)) then
 begin
  writeln('Ошибка при чтении конфигурационных данных.');
  writeln('Поломался файл config.txt ');
  readln;
  halt;
 end;
 reset(f1);
 readln(f1,n);
 for i:=1 to n do readln(f1,a[i]); 
 close(f1);
 if opt1=1 then for i:=1 to n do a[i]:=probel(a[i]);
 if opt2=1 then for i:=1 to n do a[i]:=up(a[i]); 
 if opt3=1 then for i:=1 to n do a[i]:=trlit(a[i]); 
 k:=1; 
 while k<n do begin
 for i:=1 to n-1 do begin
  r:=0; q:=1;
  while r=0 do begin 
   s1:=a[i]; 
   s2:=a[i+1];
   r:=sravn(s1[q],s2[q]);
   if (q>length(s1)) or (q>length(s2)) then r:=1;
   q:=q+1;
  end;
  if r=2 then begin s:=a[i]; a[i]:=a[i+1]; a[i+1]:=s; end;
 end;
 k:=k+1;
 end;
 rewrite(f2);
 for i:=1 to n do writeln(f2,a[i]);
 close(f2);
end.