#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__ EOF;
int /*<<< orphan*/ find_prime_factors(int, int *, int, int *, int *);
int /*<<< orphan*/ find_primes(int /*<<< orphan*/, int *, int *);
int /*<<< orphan*/ printf(char *, int);
scalar_t__ scanf(char *, int *);
int /*<<< orphan*/ sqrt(int);
int main() {
  int num, base, exp;
  int primes[1 << 12], num_primes;
  int factors[1 << 12], num_factors;
  int prev, result;
  int i;
  find_primes(sqrt(1000000000), primes, &num_primes);
  while (scanf("%d\n", &num) != EOF && num != 0) {
    if (num == 1) {
      printf("%d\n", 0);
      continue;
    }
    find_prime_factors(num, primes, num_primes, factors, &num_factors);
    prev = 0;
    result = num;
    for (i = 0; i < num_factors; i++) {
      if (factors[i] == prev) {
        continue;
      } else {
        prev = factors[i];
        result = result - result / prev;
      }
    }
    printf("%d\n", result);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x8040,%rsp
movl   $0x0,-0x4(%rbp)
mov    $0x3b9aca00,%edi
call   1070 <sqrt@plt>
mov    %eax,%edi
lea    -0x4010(%rbp),%rsi
lea    -0x4014(%rbp),%rdx
call   1030 <find_primes@plt>
lea    0xe78(%rip),%rdi
lea    -0x8(%rbp),%rsi
call   1060 <scanf@plt>
mov    %rax,%rcx
xor    %eax,%eax
mov    0x2e4b(%rip),%rdx
cmp    (%rdx),%rcx
mov    %al,-0x8031(%rbp)
je     11b9 <main+0x69>
cmpl   $0x0,-0x8(%rbp)
setne  %al
mov    %al,-0x8031(%rbp)
mov    -0x8031(%rbp),%al
test   $0x1,%al
jne    11cc <main+0x7c>
jmp    12c7 <main+0x177>
cmpl   $0x1,-0x8(%rbp)
jne    11e9 <main+0x99>
lea    0xe23(%rip),%rdi
xor    %esi,%esi
call   1040 <printf@plt>
jmp    1181 <main+0x31>
mov    -0x8(%rbp),%edi
lea    -0x4010(%rbp),%rsi
mov    -0x4014(%rbp),%edx
lea    -0x8020(%rbp),%rcx
lea    -0x8024(%rbp),%r8
call   1050 <find_prime_factors@plt>
movl   $0x0,-0x8028(%rbp)
mov    -0x8(%rbp),%eax
mov    %eax,-0x802c(%rbp)
movl   $0x0,-0x8030(%rbp)
mov    -0x8030(%rbp),%eax
cmp    -0x8024(%rbp),%eax
jge    12b0 <main+0x160>
movslq -0x8030(%rbp),%rax
mov    -0x8020(%rbp,%rax,4),%eax
cmp    -0x8028(%rbp),%eax
jne    125a <main+0x10a>
jmp    129c <main+0x14c>
movslq -0x8030(%rbp),%rax
mov    -0x8020(%rbp,%rax,4),%eax
mov    %eax,-0x8028(%rbp)
mov    -0x802c(%rbp),%eax
mov    %eax,-0x8038(%rbp)
mov    -0x802c(%rbp),%eax
cltd
idivl  -0x8028(%rbp)
mov    %eax,%ecx
mov    -0x8038(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x802c(%rbp)
jmp    129c <main+0x14c>
mov    -0x8030(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8030(%rbp)
jmp    1229 <main+0xd9>
mov    -0x802c(%rbp),%esi
lea    0xd43(%rip),%rdi
call   1040 <printf@plt>
jmp    1181 <main+0x31>
xor    %eax,%eax
add    $0x8040,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x8018,%rsp
mov    $0x3b9aca00,%edi
call   1070 <sqrt@plt>
lea    0x4010(%rsp),%rsi
lea    0xc(%rsp),%rdx
mov    %eax,%edi
call   1030 <find_primes@plt>
lea    0xe7a(%rip),%rdi
lea    0x4(%rsp),%rsi
call   1060 <scanf@plt>
mov    0x2e51(%rip),%r15
cmp    (%r15),%rax
je     1273 <main+0x123>
mov    0x4(%rsp),%edi
test   %edi,%edi
je     1273 <main+0x123>
lea    0xe4d(%rip),%r12
lea    0x4(%rsp),%r14
lea    0x8(%rsp),%r13
nopl   (%rax)
xor    %esi,%esi
cmp    $0x1,%edi
je     1210 <main+0xc0>
mov    0xc(%rsp),%edx
lea    0x4010(%rsp),%rsi
lea    0x10(%rsp),%rcx
mov    %r13,%r8
call   1050 <find_prime_factors@plt>
mov    0x4(%rsp),%esi
mov    0x8(%rsp),%r8d
test   %r8d,%r8d
jle    1210 <main+0xc0>
cmp    $0x1,%r8d
jne    1232 <main+0xe2>
xor    %edi,%edi
xor    %ebp,%ebp
test   $0x1,%r8b
je     1210 <main+0xc0>
mov    0x10(%rsp,%rdi,4),%ecx
cmp    %ebp,%ecx
je     1210 <main+0xc0>
mov    %esi,%eax
cltd
idiv   %ecx
sub    %eax,%esi
nopl   (%rax)
mov    %r12,%rdi
call   1040 <printf@plt>
mov    %r12,%rdi
mov    %r14,%rsi
call   1060 <scanf@plt>
cmp    (%r15),%rax
je     1273 <main+0x123>
mov    0x4(%rsp),%edi
test   %edi,%edi
jne    11c0 <main+0x70>
jmp    1273 <main+0x123>
mov    %r8d,%ecx
and    $0xfffffffe,%ecx
xor    %edi,%edi
xor    %ebp,%ebp
jmp    1250 <main+0x100>
xchg   %ax,%ax
mov    %esi,%eax
cltd
idiv   %ebp
sub    %eax,%esi
add    $0x2,%rdi
cmp    %rdi,%rcx
je     11f8 <main+0xa8>
mov    0x10(%rsp,%rdi,4),%ebx
cmp    %ebp,%ebx
jne    1260 <main+0x110>
mov    %ebp,%ebx
jmp    1267 <main+0x117>
nopl   0x0(%rax)
mov    %esi,%eax
cltd
idiv   %ebx
sub    %eax,%esi
mov    0x14(%rsp,%rdi,4),%ebp
cmp    %ebx,%ebp
jne    1240 <main+0xf0>
mov    %ebx,%ebp
jmp    1247 <main+0xf7>
xor    %eax,%eax
add    $0x8018,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [4 x i8] c"%d\0A\00"
@EOF = global i64 0
define i32 @main() {
%1 = alloca i32
%2 = alloca [4096 x i32]
%3 = alloca i32
%4 = alloca [4096 x i32]
%5 = alloca i32
%6 = bitcast i32* %1 to i8*
%7 = bitcast [4096 x i32]* %2 to i8*
%8 = bitcast i32* %3 to i8*
%9 = bitcast [4096 x i32]* %4 to i8*
%10 = bitcast i32* %5 to i8*
%11 = tail call i32 @sqrt(i32 1000000000)
%12 = getelementptr inbounds [4096 x i32], [4096 x i32]* %2, i64 0, i64 0
%13 = call i32 @find_primes(i32 %11, i32* %12, i32* %3)
%14 = call i64 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32* %1)
%15 = load i64, i64* @EOF
%16 = icmp ne i64 %14, %15
%17 = load i32, i32* %1
%18 = icmp ne i32 %17, 0
%19 = select i1 %16, i1 %18, i1 false
br i1 %19, label %20, label %86
20: ; preds = %0
%21 = getelementptr inbounds [4096 x i32], [4096 x i32]* %4, i64 0, i64 0
br label %22
22: ; preds = %20, %38
%23 = phi i32 [ %17, %20 ], [ %44, %38 ]
%24 = icmp eq i32 %23, 1
br i1 %24, label %38, label %47
25: ; preds = %80, %53
%26 = phi i32 [ undef, %53 ], [ %82, %80 ]
%27 = phi i64 [ 0, %53 ], [ %83, %80 ]
%28 = phi i32 [ %50, %53 ], [ %82, %80 ]
%29 = phi i32 [ 0, %53 ], [ %81, %80 ]
%30 = icmp eq i64 %55, 0
br i1 %30, label %38, label %31
31: ; preds = %25
%32 = getelementptr inbounds [4096 x i32], [4096 x i32]* %4, i64 0, i64 %27
%33 = load i32, i32* %32
%34 = icmp eq i32 %33, %29
br i1 %34, label %38, label %35
35: ; preds = %31
%36 = sdiv i32 %28, %33
%37 = sub nsw i32 %28, %36
br label %38
38: ; preds = %25, %35, %31, %22, %47
%39 = phi i32 [ %50, %47 ], [ 0, %22 ], [ %26, %25 ], [ %28, %31 ], [ %37, %35 ]
%40 = call i32 @printf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32 %39)
%41 = call i64 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i32* %1)
%42 = load i64, i64* @EOF
%43 = icmp ne i64 %41, %42
%44 = load i32, i32* %1
%45 = icmp ne i32 %44, 0
%46 = select i1 %43, i1 %45, i1 false
br i1 %46, label %22, label %86
47: ; preds = %22
%48 = load i32, i32* %3
%49 = call i32 @find_prime_factors(i32 %23, i32* %12, i32 %48, i32* %21, i32* %5)
%50 = load i32, i32* %1
%51 = load i32, i32* %5
%52 = icmp sgt i32 %51, 0
br i1 %52, label %53, label %38
53: ; preds = %47
%54 = zext i32 %51 to i64
%55 = and i64 %54, 1
%56 = icmp eq i32 %51, 1
br i1 %56, label %25, label %57
57: ; preds = %53
%58 = and i64 %54, 4294967294
br label %59
59: ; preds = %80, %57
%60 = phi i64 [ 0, %57 ], [ %83, %80 ]
%61 = phi i32 [ %50, %57 ], [ %82, %80 ]
%62 = phi i32 [ 0, %57 ], [ %81, %80 ]
%63 = phi i64 [ 0, %57 ], [ %84, %80 ]
%64 = getelementptr inbounds [4096 x i32], [4096 x i32]* %4, i64 0, i64 %60
%65 = load i32, i32* %64
%66 = icmp eq i32 %65, %62
br i1 %66, label %70, label %67
67: ; preds = %59
%68 = sdiv i32 %61, %65
%69 = sub nsw i32 %61, %68
br label %70
70: ; preds = %59, %67
%71 = phi i32 [ %62, %59 ], [ %65, %67 ]
%72 = phi i32 [ %61, %59 ], [ %69, %67 ]
%73 = or i64 %60, 1
%74 = getelementptr inbounds [4096 x i32], [4096 x i32]* %4, i64 0, i64 %73
%75 = load i32, i32* %74
%76 = icmp eq i32 %75, %71
br i1 %76, label %80, label %77
77: ; preds = %70
%78 = sdiv i32 %72, %75
%79 = sub nsw i32 %72, %78
br label %80
80: ; preds = %77, %70
%81 = phi i32 [ %71, %70 ], [ %75, %77 ]
%82 = phi i32 [ %72, %70 ], [ %79, %77 ]
%83 = add nuw nsw i64 %60, 2
%84 = add i64 %63, 2
%85 = icmp eq i64 %84, %58
br i1 %85, label %25, label %59
86: ; preds = %38, %0
ret i32 0
}