#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*/ ms(int *, int);
int /*<<< orphan*/ printf(char *, long long);
int /*<<< orphan*/ scanf(char *, int *);
int main() {
  int t, n, i;
  long long int p, c;
  scanf("%d", &t);
  while (t--) {
    scanf("%d", &n);
    int a[n];
    for (i = 0; i < n; ++i)
      scanf("%d", &a[i]);
    ms(a, n);
    for (i = p = 0; i < n - 1; ++i) {
      for (c = 1; (i < n - 1) && (a[i] == a[i + 1]); ++i)
        c++;
      p += (c - 1) * c;
    }
    printf("%lld\n", p);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xeba(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1040 <scanf@plt>
mov    -0x8(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x8(%rbp)
cmp    $0x0,%eax
je     12a6 <main+0x176>
lea    0xe96(%rip),%rdi
lea    -0xc(%rbp),%rsi
call   1040 <scanf@plt>
mov    -0xc(%rbp),%eax
mov    %rsp,%rcx
mov    %rcx,-0x28(%rbp)
lea    0xf(,%rax,4),%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rcx
sub    %rdx,%rcx
mov    %rcx,-0x38(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x30(%rbp)
movl   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11d6 <main+0xa6>
mov    -0x38(%rbp),%rsi
movslq -0x10(%rbp),%rax
shl    $0x2,%rax
add    %rax,%rsi
lea    0xe3d(%rip),%rdi
call   1040 <scanf@plt>
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    11a1 <main+0x71>
mov    -0x38(%rbp),%rdi
mov    -0xc(%rbp),%esi
call   1050 <ms@plt>
movq   $0x0,-0x18(%rbp)
movl   $0x0,-0x10(%rbp)
mov    -0x10(%rbp),%eax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    128a <main+0x15a>
movq   $0x1,-0x20(%rbp)
mov    -0x10(%rbp),%ecx
mov    -0xc(%rbp),%edx
sub    $0x1,%edx
xor    %eax,%eax
cmp    %edx,%ecx
mov    %al,-0x39(%rbp)
jge    123d <main+0x10d>
mov    -0x38(%rbp),%rcx
movslq -0x10(%rbp),%rax
mov    (%rcx,%rax,4),%eax
mov    -0x10(%rbp),%edx
add    $0x1,%edx
movslq %edx,%rdx
cmp    (%rcx,%rdx,4),%eax
sete   %al
mov    %al,-0x39(%rbp)
mov    -0x39(%rbp),%al
test   $0x1,%al
jne    124d <main+0x11d>
jmp    1267 <main+0x137>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    120a <main+0xda>
mov    -0x20(%rbp),%rax
sub    $0x1,%rax
imul   -0x20(%rbp),%rax
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    11f1 <main+0xc1>
mov    -0x18(%rbp),%rsi
lea    0xd6e(%rip),%rdi
call   1030 <printf@plt>
mov    -0x28(%rbp),%rax
mov    %rax,%rsp
jmp    114f <main+0x1f>
xor    %eax,%eax
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
mov    %rsp,%rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
lea    0xebb(%rip),%rdi
lea    -0x30(%rbp),%rsi
call   1040 <scanf@plt>
subl   $0x1,-0x30(%rbp)
jae    1165 <main+0x35>
xor    %eax,%eax
lea    -0x28(%rbp),%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
lea    0xe94(%rip),%r12
jmp    1187 <main+0x57>
xchg   %ax,%ax
xor    %esi,%esi
lea    0xe8a(%rip),%rdi
call   1030 <printf@plt>
mov    %r14,%rsp
subl   $0x1,-0x30(%rbp)
jb     1154 <main+0x24>
mov    %r12,%rdi
lea    -0x2c(%rbp),%rsi
call   1040 <scanf@plt>
mov    %rsp,%r14
mov    -0x2c(%rbp),%eax
mov    %rsp,%r13
lea    0xf(,%rax,4),%rax
and    $0xfffffffffffffff0,%rax
sub    %rax,%r13
mov    %r13,%rsp
mov    -0x2c(%rbp),%esi
test   %esi,%esi
jle    11dc <main+0xac>
mov    %r13,%rbx
xor    %r15d,%r15d
nopl   0x0(%rax,%rax,1)
mov    %r12,%rdi
mov    %rbx,%rsi
call   1040 <scanf@plt>
add    $0x1,%r15
movslq -0x2c(%rbp),%rsi
add    $0x4,%rbx
cmp    %rsi,%r15
jl     11c0 <main+0x90>
mov    %r13,%rdi
call   1050 <ms@plt>
mov    -0x2c(%rbp),%r9d
cmp    $0x2,%r9d
jl     1170 <main+0x40>
lea    -0x1(%r9),%r10d
mov    %r10d,%r8d
add    $0xfffffffe,%r9d
neg    %r8
xor    %edi,%edi
xor    %esi,%esi
jmp    1227 <main+0xf7>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
lea    -0x1(%rbx),%rax
imul   %rbx,%rax
add    %rax,%rsi
add    $0x1,%edi
cmp    %r10d,%edi
jge    1172 <main+0x42>
mov    $0x1,%ebx
cmp    %r10d,%edi
jge    1210 <main+0xe0>
movslq %edi,%rdx
mov    %r9d,%r11d
sub    %edi,%r11d
add    $0x2,%r11
lea    0x0(,%rdx,4),%r15
add    %r13,%r15
mov    0x0(%r13,%rdx,4),%eax
add    %r8,%rdx
mov    $0x1,%ebx
cs nopw 0x0(%rax,%rax,1)
cmp    (%r15,%rbx,4),%eax
jne    1210 <main+0xe0>
add    $0x1,%edi
lea    (%rdx,%rbx,1),%rcx
add    $0x1,%rcx
add    $0x1,%rbx
cmp    $0x1,%rcx
jne    1260 <main+0x130>
mov    %r11,%rbx
mov    %r10d,%edi
jmp    1210 <main+0xe0>

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

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.1 = [6 x i8] c"%lld\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = bitcast i32* %1 to i8*
%4 = bitcast 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 = add nsw i32 %6, -1
store i32 %7, i32* %1
%8 = icmp eq i32 %6, 0
br i1 %8, label %71, label %9
9: ; preds = %0, %65
%10 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %2)
%11 = load i32, i32* %2
%12 = zext i32 %11 to i64
%13 = call i8* @llvm.stacksave()
%14 = alloca i32, i64 %12
%15 = load i32, i32* %2
%16 = icmp sgt i32 %15, 0
br i1 %16, label %17, label %25
17: ; preds = %9, %17
%18 = phi i64 [ %21, %17 ], [ 0, %9 ]
%19 = getelementptr inbounds i32, i32* %14, i64 %18
%20 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %19)
%21 = add nuw nsw i64 %18, 1
%22 = load i32, i32* %2
%23 = sext i32 %22 to i64
%24 = icmp slt i64 %21, %23
br i1 %24, label %17, label %25
25: ; preds = %17, %9
%26 = phi i32 [ %15, %9 ], [ %22, %17 ]
%27 = call i32 @ms(i32* %14, i32 %26)
%28 = load i32, i32* %2
%29 = add i32 %28, -1
%30 = icmp sgt i32 %28, 1
br i1 %30, label %31, label %65
31: ; preds = %25
%32 = zext i32 %29 to i64
%33 = add nsw i32 %28, -2
br label %34
34: ; preds = %31, %57
%35 = phi i32 [ %63, %57 ], [ 0, %31 ]
%36 = phi i64 [ %62, %57 ], [ 0, %31 ]
%37 = icmp slt i32 %35, %29
br i1 %37, label %38, label %57
38: ; preds = %34
%39 = sext i32 %35 to i64
%40 = sub i32 %33, %35
%41 = zext i32 %40 to i64
%42 = add nuw nsw i64 %41, 2
%43 = getelementptr inbounds i32, i32* %14, i64 %39
%44 = load i32, i32* %43
br label %45
45: ; preds = %38, %52
%46 = phi i64 [ %39, %38 ], [ %48, %52 ]
%47 = phi i64 [ 1, %38 ], [ %53, %52 ]
%48 = add nsw i64 %46, 1
%49 = getelementptr inbounds i32, i32* %14, i64 %48
%50 = load i32, i32* %49
%51 = icmp eq i32 %44, %50
br i1 %51, label %52, label %55
52: ; preds = %45
%53 = add nuw nsw i64 %47, 1
%54 = icmp eq i64 %48, %32
br i1 %54, label %57, label %45
55: ; preds = %45
%56 = trunc i64 %46 to i32
br label %57
57: ; preds = %52, %55, %34
%58 = phi i64 [ 1, %34 ], [ %47, %55 ], [ %42, %52 ]
%59 = phi i32 [ %35, %34 ], [ %56, %55 ], [ %29, %52 ]
%60 = add nsw i64 %58, -1
%61 = mul nsw i64 %60, %58
%62 = add nsw i64 %61, %36
%63 = add nsw i32 %59, 1
%64 = icmp slt i32 %63, %29
br i1 %64, label %34, label %65
65: ; preds = %57, %25
%66 = phi i64 [ 0, %25 ], [ %62, %57 ]
%67 = call i32 @printf(i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.1, i64 0, i64 0), i64 %66)
%68 = load i32, i32* %1
%69 = add nsw i32 %68, -1
store i32 %69, i32* %1
%70 = icmp eq i32 %68, 0
br i1 %70, label %71, label %9
71: ; preds = %65, %0
ret i32 0
}