var n,i,j:integer;
    st:array[1..100] of string;
    bl:string;
begin
  n:=0;
  repeat
    inc(n);
    readln(st[n]);
  until st[n]='end';
  for i:=1 to n-1 do
    for j:=i+1 to n-1 do
      if st[i]>st[j] then
        begin
          bl:=st[i];
          st[i]:=st[j];
          st[j]:=bl;
        end;
  for i:=1 to n-1 do
    writeln(st[i]);
end.

/**************************************************************
	Problem: 2016
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/