#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
scalar_t__ malloc(long long);
int /*<<< orphan*/ mergeSort(long long *, int /*<<< orphan*/, long long);
int /*<<< orphan*/ printf(char *, long long);
int /*<<< orphan*/ scanf(char *, ...);
int main() {
  int t, j = 0;
  long long n, i, *arr, sumNegative = 0, totPositive = 0, sumPositive = 0,
                        tempSumPositive = 0;
  long long sum = 0, newSum = 0, tripOff = 0;
  scanf("%d", &t);
  while (j++ < t) {
    sumNegative = 0;
    totPositive = 0;
    sumPositive = 0;
    sum = 0;
    scanf("%lld", &n);
    arr = (long long *)malloc(n * sizeof(long long));
    for (i = 0; i < n; i++) {
      scanf("%lld", &arr[i]);
      sum += arr[i];
    }
    mergeSort(arr, 0, n - 1);
    sum = n * sum;
    tripOff = sum, i = 0;
    long long posSum = sum, negSum = 0, tempSum = sum;
    while (tripOff >= sum && i < n) {
      sum = tripOff;
      posSum = ((posSum / (n - i)) - arr[i]) * (n - i - 1);
      negSum += arr[i];
      tempSum = posSum + negSum;
      tripOff = tempSum;
      i++;
    }
    printf("%lld\n", sum);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x80,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0xc(%rbp)
movq   $0x0,-0x30(%rbp)
movq   $0x0,-0x38(%rbp)
movq   $0x0,-0x40(%rbp)
movq   $0x0,-0x48(%rbp)
movq   $0x0,-0x50(%rbp)
movq   $0x0,-0x58(%rbp)
movq   $0x0,-0x60(%rbp)
lea    0xe68(%rip),%rdi
lea    -0x8(%rbp),%rsi
mov    $0x0,%al
call   1060 <scanf@plt>
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0xc(%rbp)
cmp    -0x8(%rbp),%eax
jge    1352 <main+0x212>
movq   $0x0,-0x30(%rbp)
movq   $0x0,-0x38(%rbp)
movq   $0x0,-0x40(%rbp)
movq   $0x0,-0x50(%rbp)
lea    0xe25(%rip),%rdi
lea    -0x18(%rbp),%rsi
mov    $0x0,%al
call   1060 <scanf@plt>
mov    -0x18(%rbp),%rdi
shl    $0x3,%rdi
call   1050 <malloc@plt>
mov    %rax,-0x28(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jge    1252 <main+0x112>
mov    -0x28(%rbp),%rsi
mov    -0x20(%rbp),%rax
shl    $0x3,%rax
add    %rax,%rsi
lea    0xddd(%rip),%rdi
mov    $0x0,%al
call   1060 <scanf@plt>
mov    -0x28(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
add    -0x50(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1202 <main+0xc2>
mov    -0x28(%rbp),%rdi
mov    -0x18(%rbp),%rdx
sub    $0x1,%rdx
xor    %esi,%esi
call   1040 <mergeSort@plt>
mov    -0x18(%rbp),%rax
imul   -0x50(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x50(%rbp),%rax
mov    %rax,-0x60(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x50(%rbp),%rax
mov    %rax,-0x68(%rbp)
movq   $0x0,-0x70(%rbp)
mov    -0x50(%rbp),%rax
mov    %rax,-0x78(%rbp)
mov    -0x60(%rbp),%rcx
xor    %eax,%eax
cmp    -0x50(%rbp),%rcx
mov    %al,-0x79(%rbp)
jl     12bb <main+0x17b>
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
setl   %al
mov    %al,-0x79(%rbp)
mov    -0x79(%rbp),%al
test   $0x1,%al
jne    12cb <main+0x18b>
jmp    133d <main+0x1fd>
mov    -0x60(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x68(%rbp),%rax
mov    -0x18(%rbp),%rcx
sub    -0x20(%rbp),%rcx
cqto
idiv   %rcx
mov    -0x28(%rbp),%rcx
mov    -0x20(%rbp),%rdx
sub    (%rcx,%rdx,8),%rax
mov    -0x18(%rbp),%rcx
sub    -0x20(%rbp),%rcx
sub    $0x1,%rcx
imul   %rcx,%rax
mov    %rax,-0x68(%rbp)
mov    -0x28(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
add    -0x70(%rbp),%rax
mov    %rax,-0x70(%rbp)
mov    -0x68(%rbp),%rax
add    -0x70(%rbp),%rax
mov    %rax,-0x78(%rbp)
mov    -0x78(%rbp),%rax
mov    %rax,-0x60(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    129a <main+0x15a>
mov    -0x50(%rbp),%rsi
lea    0xcc0(%rip),%rdi
call   1030 <printf@plt>
jmp    11a3 <main+0x63>
xor    %eax,%eax
add    $0x80,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
lea    0xeab(%rip),%rdi
lea    0xc(%rsp),%rsi
xor    %eax,%eax
call   1060 <scanf@plt>
cmpl   $0x0,0xc(%rsp)
jle    1299 <main+0x159>
mov    $0x1,%r14d
lea    0xe8a(%rip),%r12
jmp    11a1 <main+0x61>
nopl   0x0(%rax,%rax,1)
mov    %rbx,%rsi
lea    0xe7e(%rip),%rdi
call   1030 <printf@plt>
lea    0x1(%r14),%eax
cmp    0xc(%rsp),%r14d
mov    %eax,%r14d
jge    1299 <main+0x159>
mov    %r12,%rdi
lea    0x10(%rsp),%rsi
xor    %eax,%eax
call   1060 <scanf@plt>
mov    0x10(%rsp),%rdi
shl    $0x3,%rdi
call   1050 <malloc@plt>
mov    %rax,%r13
mov    0x10(%rsp),%rdx
test   %rdx,%rdx
jle    1210 <main+0xd0>
xor    %ebp,%ebp
xor    %ebx,%ebx
xor    %r15d,%r15d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %r13,%rsi
add    %rbp,%rsi
mov    %r12,%rdi
xor    %eax,%eax
call   1060 <scanf@plt>
add    0x0(%r13,%r15,8),%rbx
add    $0x1,%r15
mov    0x10(%rsp),%rdx
add    $0x8,%rbp
cmp    %rdx,%r15
jl     11e0 <main+0xa0>
jmp    1212 <main+0xd2>
nopl   0x0(%rax)
xor    %ebx,%ebx
add    $0xffffffffffffffff,%rdx
mov    %r13,%rdi
xor    %esi,%esi
call   1040 <mergeSort@plt>
mov    0x10(%rsp),%r8
imul   %r8,%rbx
test   %r8,%r8
jle    1180 <main+0x40>
mov    $0x1,%ebp
mov    %r8,%rdi
xor    %ecx,%ecx
mov    %rbx,%rax
nop
mov    %rax,%rsi
mov    %rbx,%rax
or     %rdi,%rax
shr    $0x20,%rax
je     1260 <main+0x120>
mov    %rbx,%rax
cqto
idiv   %rdi
mov    %rax,%rbx
jmp    1268 <main+0x128>
nopl   0x0(%rax)
mov    %ebx,%eax
xor    %edx,%edx
div    %edi
mov    %eax,%ebx
mov    -0x8(%r13,%rbp,8),%rax
sub    %rax,%rbx
add    $0xffffffffffffffff,%rdi
imul   %rdi,%rbx
add    %rax,%rcx
lea    (%rbx,%rcx,1),%rax
cmp    %rsi,%rax
jl     1183 <main+0x43>
lea    0x1(%rbp),%rdx
cmp    %rbp,%r8
mov    %rdx,%rbp
jg     1240 <main+0x100>
jmp    1183 <main+0x43>
xor    %eax,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
@.str.1 = [5 x i8] c"%lld\00"
@.str.2 = [6 x i8] c"%lld\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64*
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64
%11 = alloca i64
%12 = alloca i64
%13 = alloca i64
%14 = alloca i64
%15 = alloca i64
%16 = alloca i64
store i32 0, i32* %1
store i32 0, i32* %3
store i64 0, i64* %7
store i64 0, i64* %8
store i64 0, i64* %9
store i64 0, i64* %10
store i64 0, i64* %11
store i64 0, i64* %12
store i64 0, i64* %13
%17 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
br label %18
18: ; preds = %97, %0
%19 = load i32, i32* %3
%20 = add nsw i32 %19, 1
store i32 %20, i32* %3
%21 = load i32, i32* %2
%22 = icmp slt i32 %19, %21
br i1 %22, label %23, label %100
23: ; preds = %18
store i64 0, i64* %7
store i64 0, i64* %8
store i64 0, i64* %9
store i64 0, i64* %11
%24 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64* %4)
%25 = load i64, i64* %4
%26 = mul i64 %25, 8
%27 = call i64 @malloc(i64 %26)
%28 = inttoptr i64 %27 to i64*
store i64* %28, i64** %6
store i64 0, i64* %5
br label %29
29: ; preds = %44, %23
%30 = load i64, i64* %5
%31 = load i64, i64* %4
%32 = icmp slt i64 %30, %31
br i1 %32, label %33, label %47
33: ; preds = %29
%34 = load i64*, i64** %6
%35 = load i64, i64* %5
%36 = getelementptr inbounds i64, i64* %34, i64 %35
%37 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64* %36)
%38 = load i64*, i64** %6
%39 = load i64, i64* %5
%40 = getelementptr inbounds i64, i64* %38, i64 %39
%41 = load i64, i64* %40
%42 = load i64, i64* %11
%43 = add nsw i64 %42, %41
store i64 %43, i64* %11
br label %44
44: ; preds = %33
%45 = load i64, i64* %5
%46 = add nsw i64 %45, 1
store i64 %46, i64* %5
br label %29
47: ; preds = %29
%48 = load i64*, i64** %6
%49 = load i64, i64* %4
%50 = sub nsw i64 %49, 1
%51 = call i32 @mergeSort(i64* %48, i32 0, i64 %50)
%52 = load i64, i64* %4
%53 = load i64, i64* %11
%54 = mul nsw i64 %52, %53
store i64 %54, i64* %11
%55 = load i64, i64* %11
store i64 %55, i64* %13
store i64 0, i64* %5
%56 = load i64, i64* %11
store i64 %56, i64* %14
store i64 0, i64* %15
%57 = load i64, i64* %11
store i64 %57, i64* %16
br label %58
58: ; preds = %68, %47
%59 = load i64, i64* %13
%60 = load i64, i64* %11
%61 = icmp sge i64 %59, %60
br i1 %61, label %62, label %66
62: ; preds = %58
%63 = load i64, i64* %5
%64 = load i64, i64* %4
%65 = icmp slt i64 %63, %64
br label %66
66: ; preds = %62, %58
%67 = phi i1 [ false, %58 ], [ %65, %62 ]
br i1 %67, label %68, label %97
68: ; preds = %66
%69 = load i64, i64* %13
store i64 %69, i64* %11
%70 = load i64, i64* %14
%71 = load i64, i64* %4
%72 = load i64, i64* %5
%73 = sub nsw i64 %71, %72
%74 = sdiv i64 %70, %73
%75 = load i64*, i64** %6
%76 = load i64, i64* %5
%77 = getelementptr inbounds i64, i64* %75, i64 %76
%78 = load i64, i64* %77
%79 = sub nsw i64 %74, %78
%80 = load i64, i64* %4
%81 = load i64, i64* %5
%82 = sub nsw i64 %80, %81
%83 = sub nsw i64 %82, 1
%84 = mul nsw i64 %79, %83
store i64 %84, i64* %14
%85 = load i64*, i64** %6
%86 = load i64, i64* %5
%87 = getelementptr inbounds i64, i64* %85, i64 %86
%88 = load i64, i64* %87
%89 = load i64, i64* %15
%90 = add nsw i64 %89, %88
store i64 %90, i64* %15
%91 = load i64, i64* %14
%92 = load i64, i64* %15
%93 = add nsw i64 %91, %92
store i64 %93, i64* %16
%94 = load i64, i64* %16
store i64 %94, i64* %13
%95 = load i64, i64* %5
%96 = add nsw i64 %95, 1
store i64 %96, i64* %5
br label %58
97: ; preds = %66
%98 = load i64, i64* %11
%99 = call i32 @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.2, i64 0, i64 0), i64 %98)
br label %18
100: ; preds = %18
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.1 = [5 x i8] c"%lld\00"
@.str.2 = [6 x i8] c"%lld\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i64
%3 = bitcast i32* %1 to i8*
%4 = bitcast i64* %2 to i8*
%5 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i32, i32* %1
%7 = icmp sgt i32 %6, 0
br i1 %7, label %8, label %59
8: ; preds = %0, %53
%9 = phi i32 [ %56, %53 ], [ 1, %0 ]
%10 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64* %2)
%11 = load i64, i64* %2
%12 = shl i64 %11, 3
%13 = call i64 @malloc(i64 %12)
%14 = inttoptr i64 %13 to i64*
%15 = load i64, i64* %2
%16 = icmp sgt i64 %15, 0
br i1 %16, label %17, label %27
17: ; preds = %8, %17
%18 = phi i64 [ %23, %17 ], [ 0, %8 ]
%19 = phi i64 [ %24, %17 ], [ 0, %8 ]
%20 = getelementptr inbounds i64, i64* %14, i64 %19
%21 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64* %20)
%22 = load i64, i64* %20
%23 = add nsw i64 %22, %18
%24 = add nuw nsw i64 %19, 1
%25 = load i64, i64* %2
%26 = icmp slt i64 %24, %25
br i1 %26, label %17, label %27
27: ; preds = %17, %8
%28 = phi i64 [ 0, %8 ], [ %23, %17 ]
%29 = phi i64 [ %15, %8 ], [ %25, %17 ]
%30 = add nsw i64 %29, -1
%31 = call i32 @mergeSort(i64* %14, i32 0, i64 %30)
%32 = load i64, i64* %2
%33 = mul nsw i64 %32, %28
%34 = icmp sgt i64 %32, 0
br i1 %34, label %35, label %53
35: ; preds = %27, %35
%36 = phi i64 [ %47, %35 ], [ 0, %27 ]
%37 = phi i64 [ %46, %35 ], [ %33, %27 ]
%38 = phi i64 [ %48, %35 ], [ %33, %27 ]
%39 = phi i64 [ %49, %35 ], [ 0, %27 ]
%40 = sub nsw i64 %32, %39
%41 = sdiv i64 %37, %40
%42 = getelementptr inbounds i64, i64* %14, i64 %39
%43 = load i64, i64* %42
%44 = sub nsw i64 %41, %43
%45 = add nsw i64 %40, -1
%46 = mul nsw i64 %44, %45
%47 = add nsw i64 %43, %36
%48 = add nsw i64 %46, %47
%49 = add nuw nsw i64 %39, 1
%50 = icmp sge i64 %48, %38
%51 = icmp sgt i64 %32, %49
%52 = select i1 %50, i1 %51, i1 false
br i1 %52, label %35, label %53
53: ; preds = %35, %27
%54 = phi i64 [ %33, %27 ], [ %38, %35 ]
%55 = call i32 @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.2, i64 0, i64 0), i64 %54)
%56 = add nuw nsw i32 %9, 1
%57 = load i32, i32* %1
%58 = icmp slt i32 %9, %57
br i1 %58, label %8, label %59
59: ; preds = %53, %0
ret i32 0
}