program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var s:array[1..300000] of string[30];
t:string;
n,i,j:integer;
f1:text;
s1:string;
begin
s1:='vuraz.sol';
assign(f1,s1);
reset(f1);
n:=0;
while not(eof(f1)) do begin n:=n+1;readln(f1,s[n]); end;
close(f1);
for i:=1 to n-1 do
for j:=1 to n-1 do
if s[j]>s[j+1] then begin t:=s[j]; s[j]:=s[j+1]; s[j+1]:=t; end;
assign(f1,s1);
rewrite(f1);
for i:=1 to n do writeln(f1,s[i]);
close(f1);

end.