/ACM - ACM

              Uses Crt;
        Type arr=array[0..1000000] of int64;
        Var a:arr; i,j,n:longint; m:int64;
        Procedure Sort(l,r:longint);
        var i,j,x,tg:longint; m:int64;
        begin
            i:=l; j:=r; x:=a[(l+r) div 2];
            repeat
                while a[i]<x do inc(i); while a[j]>x do dec(j);
                if i<=j then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; inc(i); dec(j); end;
            until i>j;
            if l<j then sort(l,j); if i<r then sort(i,r);
        end;
        Begin
            readln(n);
            for i:=1 to n do read(a[i]); sort(1,n);
            for i:=1 to n do
            begin
                a[i]:=a[i-1]+a[i];
                inc(m,a[i]);
            end;
            writeln(m);
            readln;
        End.