#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 */
int /*<<< orphan*/ printf(char *, ...);
int /*<<< orphan*/ scanf(char *, int *);
int main() {
  int i, n, sum, avg, moves;
  int packets[10000];
  while (1) {
    scanf("%d", &n);
    if (n == -1)
      break;
    sum = 0;
    for (i = 0; i < n; i++) {
      scanf("%d", &packets[i]);
      sum += packets[i];
    }
    if (sum % n == 0) {
      avg = sum / n;
      moves = 0;
      for (i = 0; i < n; i++) {
        if (packets[i] < avg) {
          moves += avg - packets[i];
        }
      }
      printf("%d\n", moves);
    } else {
      printf("-1\n");
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x9c60,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xec7(%rip),%rdi
lea    -0xc(%rbp),%rsi
call   1040 <scanf@plt>
cmpl   $0xffffffff,-0xc(%rbp)
jne    1151 <main+0x31>
jmp    1240 <main+0x120>
movl   $0x0,-0x10(%rbp)
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11a8 <main+0x88>
movslq -0x8(%rbp),%rax
lea    -0x9c60(%rbp),%rsi
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe7c(%rip),%rdi
call   1040 <scanf@plt>
movslq -0x8(%rbp),%rax
mov    -0x9c60(%rbp,%rax,4),%eax
add    -0x10(%rbp),%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    115f <main+0x3f>
mov    -0x10(%rbp),%eax
cltd
idivl  -0xc(%rbp)
cmp    $0x0,%edx
jne    122d <main+0x10d>
mov    -0x10(%rbp),%eax
cltd
idivl  -0xc(%rbp)
mov    %eax,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1217 <main+0xf7>
movslq -0x8(%rbp),%rax
mov    -0x9c60(%rbp,%rax,4),%eax
cmp    -0x14(%rbp),%eax
jge    1204 <main+0xe4>
mov    -0x14(%rbp),%eax
movslq -0x8(%rbp),%rcx
sub    -0x9c60(%rbp,%rcx,4),%eax
add    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
jmp    1209 <main+0xe9>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    11d0 <main+0xb0>
mov    -0x18(%rbp),%esi
lea    0xde2(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    123b <main+0x11b>
lea    0xdd3(%rip),%rdi
mov    $0x0,%al
call   1030 <printf@plt>
jmp    1132 <main+0x12>
xor    %eax,%eax
add    $0x9c60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x9c58,%rsp
lea    0xeb8(%rip),%rdi
lea    0xc(%rsp),%rsi
call   1050 <scanf@plt>
mov    0xc(%rsp),%esi
cmp    $0xffffffff,%esi
je     134e <main+0x21e>
lea    0xe9a(%rip),%r13
xor    %r14d,%r14d
pxor   %xmm6,%xmm6
lea    0xc(%rsp),%r15
jmp    11a8 <main+0x78>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
lea    0xe80(%rip),%rdi
call   1030 <puts@plt>
mov    %r13,%rdi
mov    %r15,%rsi
call   1050 <scanf@plt>
mov    0xc(%rsp),%esi
cmp    $0xffffffff,%esi
pxor   %xmm6,%xmm6
je     134e <main+0x21e>
mov    $0x0,%ebp
test   %esi,%esi
jle    11e3 <main+0xb3>
xor    %r12d,%r12d
lea    0x10(%rsp),%rbx
xor    %ebp,%ebp
nopl   0x0(%rax,%rax,1)
mov    %r13,%rdi
mov    %rbx,%rsi
call   1050 <scanf@plt>
add    (%rbx),%ebp
add    $0x1,%r12
movslq 0xc(%rsp),%rsi
add    $0x4,%rbx
cmp    %rsi,%r12
jl     11c0 <main+0x90>
pxor   %xmm6,%xmm6
mov    %ebp,%eax
cltd
idiv   %esi
test   %edx,%edx
jne    1180 <main+0x50>
test   %esi,%esi
jle    1200 <main+0xd0>
mov    %esi,%ecx
cmp    $0x8,%esi
jae    1207 <main+0xd7>
xor    %edx,%edx
xor    %esi,%esi
jmp    1310 <main+0x1e0>
xor    %esi,%esi
jmp    1325 <main+0x1f5>
mov    %ecx,%edx
and    $0xfffffff8,%edx
movd   %eax,%xmm0
pshufd $0x0,%xmm0,%xmm0
lea    -0x8(%rdx),%rsi
mov    %rsi,%rbp
shr    $0x3,%rbp
add    $0x1,%rbp
test   %rsi,%rsi
je     1338 <main+0x208>
mov    %rbp,%rsi
and    $0xfffffffffffffffe,%rsi
pxor   %xmm1,%xmm1
xor    %edi,%edi
pxor   %xmm2,%xmm2
xchg   %ax,%ax
movdqa %xmm0,%xmm3
psubd  0x10(%rsp,%rdi,4),%xmm3
movdqa %xmm0,%xmm4
psubd  0x20(%rsp,%rdi,4),%xmm4
movdqa %xmm3,%xmm5
pcmpgtd %xmm6,%xmm5
pand   %xmm3,%xmm5
paddd  %xmm1,%xmm5
movdqa %xmm4,%xmm3
pcmpgtd %xmm6,%xmm3
pand   %xmm4,%xmm3
paddd  %xmm2,%xmm3
movdqa %xmm0,%xmm2
psubd  0x30(%rsp,%rdi,4),%xmm2
movdqa %xmm0,%xmm4
psubd  0x40(%rsp,%rdi,4),%xmm4
movdqa %xmm2,%xmm1
pcmpgtd %xmm6,%xmm1
pand   %xmm2,%xmm1
paddd  %xmm5,%xmm1
movdqa %xmm4,%xmm2
pcmpgtd %xmm6,%xmm2
pand   %xmm4,%xmm2
paddd  %xmm3,%xmm2
add    $0x10,%rdi
add    $0xfffffffffffffffe,%rsi
jne    1240 <main+0x110>
test   $0x1,%bpl
je     12ec <main+0x1bc>
movdqa %xmm0,%xmm3
psubd  0x10(%rsp,%rdi,4),%xmm3
movdqa 0x20(%rsp,%rdi,4),%xmm4
psubd  %xmm4,%xmm0
movdqa %xmm3,%xmm4
pcmpgtd %xmm6,%xmm4
pand   %xmm3,%xmm4
paddd  %xmm4,%xmm1
movdqa %xmm0,%xmm3
pcmpgtd %xmm6,%xmm3
pand   %xmm0,%xmm3
paddd  %xmm3,%xmm2
paddd  %xmm2,%xmm1
pshufd $0xee,%xmm1,%xmm0
paddd  %xmm1,%xmm0
pshufd $0x55,%xmm0,%xmm1
paddd  %xmm0,%xmm1
movd   %xmm1,%esi
cmp    %rcx,%rdx
je     1325 <main+0x1f5>
nopl   0x0(%rax,%rax,1)
mov    %eax,%edi
sub    0x10(%rsp,%rdx,4),%edi
cmovle %r14d,%edi
add    %edi,%esi
add    $0x1,%rdx
cmp    %rdx,%rcx
jne    1310 <main+0x1e0>
lea    0xcd7(%rip),%rdi
xor    %eax,%eax
call   1040 <printf@plt>
jmp    118c <main+0x5c>
pxor   %xmm1,%xmm1
xor    %edi,%edi
pxor   %xmm2,%xmm2
test   $0x1,%bpl
jne    12b8 <main+0x188>
jmp    12ec <main+0x1bc>
xor    %eax,%eax
add    $0x9c58,%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 = [4 x i8] c"%d\0A\00"
@.str.2 = [4 x i8] c"-1\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca [10000 x i32]
store i32 0, i32* %1
br label %8
8: ; preds = %0, %70
%9 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %3)
%10 = load i32, i32* %3
%11 = icmp eq i32 %10, -1
br i1 %11, label %12, label %13
12: ; preds = %8
br label %71
13: ; preds = %8
store i32 0, i32* %4
store i32 0, i32* %2
br label %14
14: ; preds = %29, %13
%15 = load i32, i32* %2
%16 = load i32, i32* %3
%17 = icmp slt i32 %15, %16
br i1 %17, label %18, label %32
18: ; preds = %14
%19 = load i32, i32* %2
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds [10000 x i32], [10000 x i32]* %7, i64 0, i64 %20
%22 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %21)
%23 = load i32, i32* %2
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds [10000 x i32], [10000 x i32]* %7, i64 0, i64 %24
%26 = load i32, i32* %25
%27 = load i32, i32* %4
%28 = add nsw i32 %27, %26
store i32 %28, i32* %4
br label %29
29: ; preds = %18
%30 = load i32, i32* %2
%31 = add nsw i32 %30, 1
store i32 %31, i32* %2
br label %14
32: ; preds = %14
%33 = load i32, i32* %4
%34 = load i32, i32* %3
%35 = srem i32 %33, %34
%36 = icmp eq i32 %35, 0
br i1 %36, label %37, label %68
37: ; preds = %32
%38 = load i32, i32* %4
%39 = load i32, i32* %3
%40 = sdiv i32 %38, %39
store i32 %40, i32* %5
store i32 0, i32* %6
store i32 0, i32* %2
br label %41
41: ; preds = %62, %37
%42 = load i32, i32* %2
%43 = load i32, i32* %3
%44 = icmp slt i32 %42, %43
br i1 %44, label %45, label %65
45: ; preds = %41
%46 = load i32, i32* %2
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds [10000 x i32], [10000 x i32]* %7, i64 0, i64 %47
%49 = load i32, i32* %48
%50 = load i32, i32* %5
%51 = icmp slt i32 %49, %50
br i1 %51, label %52, label %61
52: ; preds = %45
%53 = load i32, i32* %5
%54 = load i32, i32* %2
%55 = sext i32 %54 to i64
%56 = getelementptr inbounds [10000 x i32], [10000 x i32]* %7, i64 0, i64 %55
%57 = load i32, i32* %56
%58 = sub nsw i32 %53, %57
%59 = load i32, i32* %6
%60 = add nsw i32 %59, %58
store i32 %60, i32* %6
br label %61
61: ; preds = %52, %45
br label %62
62: ; preds = %61
%63 = load i32, i32* %2
%64 = add nsw i32 %63, 1
store i32 %64, i32* %2
br label %41
65: ; preds = %41
%66 = load i32, i32* %6
%67 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %66)
br label %70
68: ; preds = %32
%69 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.2, i64 0, i64 0))
br label %70
70: ; preds = %68, %65
br label %8
71: ; preds = %12
ret i32 0
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.1 = [4 x i8] c"%d\0A\00"
@str = [3 x i8] c"-1\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca [10000 x i32]
%3 = bitcast i32* %1 to i8*
%4 = bitcast [10000 x i32]* %2 to i8*
%5 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%6 = load i32, i32* %1
%7 = icmp eq i32 %6, -1
br i1 %7, label %134, label %8
8: ; preds = %0, %130
%9 = phi i32 [ %132, %130 ], [ %6, %0 ]
%10 = icmp sgt i32 %9, 0
br i1 %10, label %11, label %22
11: ; preds = %8, %11
%12 = phi i64 [ %18, %11 ], [ 0, %8 ]
%13 = phi i32 [ %17, %11 ], [ 0, %8 ]
%14 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %12
%15 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %14)
%16 = load i32, i32* %14
%17 = add nsw i32 %16, %13
%18 = add nuw nsw i64 %12, 1
%19 = load i32, i32* %1
%20 = sext i32 %19 to i64
%21 = icmp slt i64 %18, %20
br i1 %21, label %11, label %22
22: ; preds = %11, %8
%23 = phi i32 [ 0, %8 ], [ %17, %11 ]
%24 = phi i32 [ %9, %8 ], [ %19, %11 ]
%25 = srem i32 %23, %24
%26 = sdiv i32 %23, %24
%27 = icmp eq i32 %25, 0
br i1 %27, label %28, label %128
28: ; preds = %22
%29 = icmp sgt i32 %24, 0
br i1 %29, label %30, label %125
30: ; preds = %28
%31 = zext i32 %24 to i64
%32 = icmp ult i32 %24, 8
br i1 %32, label %111, label %33
33: ; preds = %30
%34 = and i64 %31, 4294967288
%35 = insertelement <4 x i32> poison, i32 %26, i64 0
%36 = shufflevector <4 x i32> %35, <4 x i32> poison, <4 x i32> zeroinitializer
%37 = insertelement <4 x i32> poison, i32 %26, i64 0
%38 = shufflevector <4 x i32> %37, <4 x i32> poison, <4 x i32> zeroinitializer
%39 = add nsw i64 %34, -8
%40 = lshr exact i64 %39, 3
%41 = add nuw nsw i64 %40, 1
%42 = and i64 %41, 1
%43 = icmp eq i64 %39, 0
br i1 %43, label %83, label %44
44: ; preds = %33
%45 = and i64 %41, 4611686018427387902
br label %46
46: ; preds = %46, %44
%47 = phi i64 [ 0, %44 ], [ %80, %46 ]
%48 = phi <4 x i32> [ zeroinitializer, %44 ], [ %78, %46 ]
%49 = phi <4 x i32> [ zeroinitializer, %44 ], [ %79, %46 ]
%50 = phi i64 [ 0, %44 ], [ %81, %46 ]
%51 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %47
%52 = bitcast i32* %51 to <4 x i32>*
%53 = load <4 x i32>, <4 x i32>* %52
%54 = getelementptr inbounds i32, i32* %51, i64 4
%55 = bitcast i32* %54 to <4 x i32>*
%56 = load <4 x i32>, <4 x i32>* %55
%57 = icmp sgt <4 x i32> %36, %53
%58 = icmp sgt <4 x i32> %38, %56
%59 = sub nsw <4 x i32> %36, %53
%60 = sub nsw <4 x i32> %38, %56
%61 = select <4 x i1> %57, <4 x i32> %59, <4 x i32> zeroinitializer
%62 = select <4 x i1> %58, <4 x i32> %60, <4 x i32> zeroinitializer
%63 = add <4 x i32> %61, %48
%64 = add <4 x i32> %62, %49
%65 = or i64 %47, 8
%66 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %65
%67 = bitcast i32* %66 to <4 x i32>*
%68 = load <4 x i32>, <4 x i32>* %67
%69 = getelementptr inbounds i32, i32* %66, i64 4
%70 = bitcast i32* %69 to <4 x i32>*
%71 = load <4 x i32>, <4 x i32>* %70
%72 = icmp sgt <4 x i32> %36, %68
%73 = icmp sgt <4 x i32> %38, %71
%74 = sub nsw <4 x i32> %36, %68
%75 = sub nsw <4 x i32> %38, %71
%76 = select <4 x i1> %72, <4 x i32> %74, <4 x i32> zeroinitializer
%77 = select <4 x i1> %73, <4 x i32> %75, <4 x i32> zeroinitializer
%78 = add <4 x i32> %76, %63
%79 = add <4 x i32> %77, %64
%80 = add nuw i64 %47, 16
%81 = add i64 %50, 2
%82 = icmp eq i64 %81, %45
br i1 %82, label %83, label %46
83: ; preds = %46, %33
%84 = phi <4 x i32> [ undef, %33 ], [ %78, %46 ]
%85 = phi <4 x i32> [ undef, %33 ], [ %79, %46 ]
%86 = phi i64 [ 0, %33 ], [ %80, %46 ]
%87 = phi <4 x i32> [ zeroinitializer, %33 ], [ %78, %46 ]
%88 = phi <4 x i32> [ zeroinitializer, %33 ], [ %79, %46 ]
%89 = icmp eq i64 %42, 0
br i1 %89, label %105, label %90
90: ; preds = %83
%91 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %86
%92 = bitcast i32* %91 to <4 x i32>*
%93 = load <4 x i32>, <4 x i32>* %92
%94 = getelementptr inbounds i32, i32* %91, i64 4
%95 = bitcast i32* %94 to <4 x i32>*
%96 = load <4 x i32>, <4 x i32>* %95
%97 = icmp sgt <4 x i32> %36, %93
%98 = icmp sgt <4 x i32> %38, %96
%99 = sub nsw <4 x i32> %36, %93
%100 = sub nsw <4 x i32> %38, %96
%101 = select <4 x i1> %97, <4 x i32> %99, <4 x i32> zeroinitializer
%102 = select <4 x i1> %98, <4 x i32> %100, <4 x i32> zeroinitializer
%103 = add <4 x i32> %101, %87
%104 = add <4 x i32> %102, %88
br label %105
105: ; preds = %83, %90
%106 = phi <4 x i32> [ %84, %83 ], [ %103, %90 ]
%107 = phi <4 x i32> [ %85, %83 ], [ %104, %90 ]
%108 = add <4 x i32> %107, %106
%109 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %108)
%110 = icmp eq i64 %34, %31
br i1 %110, label %125, label %111
111: ; preds = %30, %105
%112 = phi i64 [ 0, %30 ], [ %34, %105 ]
%113 = phi i32 [ 0, %30 ], [ %109, %105 ]
br label %114
114: ; preds = %111, %114
%115 = phi i64 [ %123, %114 ], [ %112, %111 ]
%116 = phi i32 [ %122, %114 ], [ %113, %111 ]
%117 = getelementptr inbounds [10000 x i32], [10000 x i32]* %2, i64 0, i64 %115
%118 = load i32, i32* %117
%119 = icmp sgt i32 %26, %118
%120 = sub nsw i32 %26, %118
%121 = select i1 %119, i32 %120, i32 0
%122 = add nuw nsw i32 %121, %116
%123 = add nuw nsw i64 %115, 1
%124 = icmp eq i64 %123, %31
br i1 %124, label %125, label %114
125: ; preds = %114, %105, %28
%126 = phi i32 [ 0, %28 ], [ %109, %105 ], [ %122, %114 ]
%127 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i32 %126)
br label %130
128: ; preds = %22
%129 = call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([3 x i8], [3 x i8]* @str, i64 0, i64 0))
br label %130
130: ; preds = %128, %125
%131 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %1)
%132 = load i32, i32* %1
%133 = icmp eq i32 %132, -1
br i1 %133, label %134, label %8
134: ; preds = %130, %0
ret i32 0
}