#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 *, long);
int scanf(char *, long *);
int main() {
  long a, b, g, i, j, n, r, t;
  while (scanf("%ld", &n) == 1) {
    if (n == 0)
      break;
    r = 0;
    for (i = 1; i < n; i++) {
      for (j = i + 1; j <= n; j++) {
        a = j;
        b = i;
        while (b > 0) {
          g = a % b;
          if (g == 0)
            break;
          a = b;
          b = g;
        }
        r += b;
      }
    }
    printf("%ld\n", r);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xeca(%rip),%rdi
lea    -0x38(%rbp),%rsi
call   1040 <scanf@plt>
cmp    $0x1,%eax
jne    1226 <main+0x106>
cmpq   $0x0,-0x38(%rbp)
jne    1158 <main+0x38>
jmp    1226 <main+0x106>
movq   $0x0,-0x40(%rbp)
movq   $0x1,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x38(%rbp),%rax
jge    1211 <main+0xf1>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
cmp    -0x38(%rbp),%rax
jg     11fb <main+0xdb>
mov    -0x30(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
jle    11de <main+0xbe>
mov    -0x10(%rbp),%rax
cqto
idivq  -0x18(%rbp)
mov    %rdx,-0x20(%rbp)
cmpq   $0x0,-0x20(%rbp)
jne    11c9 <main+0xa9>
jmp    11de <main+0xbe>
mov    -0x18(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x18(%rbp)
jmp    11a0 <main+0x80>
mov    -0x18(%rbp),%rax
add    -0x40(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
jmp    1182 <main+0x62>
jmp    1200 <main+0xe0>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1168 <main+0x48>
mov    -0x40(%rbp),%rsi
lea    0xde8(%rip),%rdi
call   1030 <printf@plt>
jmp    112f <main+0xf>
xor    %eax,%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
lea    0xed1(%rip),%rdi
mov    %rsp,%rsi
call   1040 <scanf@plt>
cmp    $0x1,%eax
jne    1207 <main+0xe7>
mov    (%rsp),%r9
test   %r9,%r9
je     1207 <main+0xe7>
lea    0xeb0(%rip),%r14
lea    0xea5(%rip),%r15
mov    %rsp,%r12
xchg   %ax,%ax
cmp    $0x2,%r9
jl     11e0 <main+0xc0>
mov    $0x1,%r8d
xor    %esi,%esi
jmp    1175 <main+0x55>
cmp    %r9,%r8
je     11e2 <main+0xc2>
mov    %r8,%rdi
add    $0x1,%r8
mov    %r8,%rbx
jmp    119f <main+0x7f>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
add    %rcx,%rsi
lea    0x1(%rbx),%rax
cmp    %r9,%rbx
mov    %rax,%rbx
jge    1170 <main+0x50>
mov    %rdi,%rdx
mov    %rbx,%rax
jmp    11bd <main+0x9d>
nopw   0x0(%rax,%rax,1)
cqto
idiv   %rcx
mov    %rcx,%rax
test   %rdx,%rdx
je     1190 <main+0x70>
mov    %rdx,%rcx
test   %rdx,%rdx
jle    1190 <main+0x70>
mov    %rax,%rdx
or     %rcx,%rdx
shr    $0x20,%rdx
jne    11b0 <main+0x90>
xor    %edx,%edx
div    %ecx
jmp    11b5 <main+0x95>
nopw   0x0(%rax,%rax,1)
xor    %esi,%esi
mov    %r14,%rdi
call   1030 <printf@plt>
mov    %r15,%rdi
mov    %r12,%rsi
call   1040 <scanf@plt>
cmp    $0x1,%eax
jne    1207 <main+0xe7>
mov    (%rsp),%r9
test   %r9,%r9
jne    1160 <main+0x40>
xor    %eax,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
@.str = [4 x i8] c"%ld\00"
@.str.1 = [5 x i8] c"%ld\0A\00"
define i32 @main() {
%1 = alloca i64
%2 = bitcast i64* %1 to i8*
%3 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i64* %1)
%4 = icmp ne i32 %3, 1
%5 = load i64, i64* %1
%6 = icmp eq i64 %5, 0
%7 = select i1 %4, i1 true, i1 %6
br i1 %7, label %39, label %8
8: ; preds = %0, %31
%9 = phi i64 [ %36, %31 ], [ %5, %0 ]
%10 = icmp sgt i64 %9, 1
br i1 %10, label %13, label %31
11: ; preds = %27
%12 = icmp eq i64 %16, %9
br i1 %12, label %31, label %13
13: ; preds = %8, %11
%14 = phi i64 [ %28, %11 ], [ 0, %8 ]
%15 = phi i64 [ %16, %11 ], [ 1, %8 ]
%16 = add nuw nsw i64 %15, 1
br label %17
17: ; preds = %13, %27
%18 = phi i64 [ %28, %27 ], [ %14, %13 ]
%19 = phi i64 [ %29, %27 ], [ %16, %13 ]
br label %20
20: ; preds = %17, %24
%21 = phi i64 [ %25, %24 ], [ %15, %17 ]
%22 = phi i64 [ %21, %24 ], [ %19, %17 ]
%23 = icmp sgt i64 %21, 0
br i1 %23, label %24, label %27
24: ; preds = %20
%25 = srem i64 %22, %21
%26 = icmp eq i64 %25, 0
br i1 %26, label %27, label %20
27: ; preds = %24, %20
%28 = add nsw i64 %21, %18
%29 = add nuw nsw i64 %19, 1
%30 = icmp slt i64 %19, %9
br i1 %30, label %17, label %11
31: ; preds = %11, %8
%32 = phi i64 [ 0, %8 ], [ %28, %11 ]
%33 = call i32 @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64 %32)
%34 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i64* %1)
%35 = icmp ne i32 %34, 1
%36 = load i64, i64* %1
%37 = icmp eq i64 %36, 0
%38 = select i1 %35, i1 true, i1 %37
br i1 %38, label %39, label %8
39: ; preds = %31, %0
ret i32 0
}