var s: array[0..1000] of string;
i,n,j: word;
procedure qsort(L,H: word);
var tg,k:string;
begin
    if l>=h then exit;
    i:=l; j:=h;
    tg:=s[(l+h) div 2];
    repeat
        while tg+s[i]<s[i]+tg do inc(i);
            while tg+s[j]>s[j]+tg do dec(j);
                if i<=j then
                    begin
                        if i<j then 
                            begin
                                k:=s[i];
                                s[i]:=s[j];
                                s[j]:=k;
                            end;

                        inc(i);dec(j);
                    end;
    until i>j;
    Qsort(l,j);Qsort(i,h);
end;
begin
    s[0]:='0'; n:=0;
    while s[n]<>'' do
        begin
            inc(n);
            readln(s[n]);
        end;
qsort(1,n-1);
for i:=1 to n-1 do write(s[i])
end.

uses crt;

var f1, f2 : text;

    S : array [1 .. 100] of string;

    Z : string;

    n, j, i, k : byte;

begin

clrscr;

assign(f1, 'NUMCON.INP'); reset(f1);

assign(f2, 'NUMCON.OUT'); rewrite(f2);

n := 0;

while not eof(f1) do 

    begin

        inc(n);

        readln(f1, S[n]);

    end;

for j := n downto 2 do 

    for i := 1 to j - 1 do

        begin

            if S[i] < S[i + 1] then

                begin

                    Z := S[i];

                    S[i] := S[i + 1];

                    S[i + 1] := Z;

                end;

        end;

for i := 1 to n do write(f2, S[i]);

close(f1); close(f2);

end.