long long int main_fun(long long int n, long long int m) {
  long long int r = 1;
  long long int temp, i, j, k;
  while (n > 0) {
    temp = n % m;
    for (i = 2; i <= temp; i++) {
      r = (r * i) % m;
    }
    n = n / m;
    if (n % 2 == 1) {
      r = m - r;
    }
  }
  return r;
}


x86 assembly (clang, -O0):
<main_fun>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movq   $0x1,-0x18(%rbp)
cmpq   $0x0,-0x8(%rbp)
jle    119e <main_fun+0x9e>
mov    -0x8(%rbp),%rax
cqto
idivq  -0x10(%rbp)
mov    %rdx,-0x20(%rbp)
movq   $0x2,-0x28(%rbp)
mov    -0x28(%rbp),%rax
cmp    -0x20(%rbp),%rax
jg     1167 <main_fun+0x67>
mov    -0x18(%rbp),%rax
imul   -0x28(%rbp),%rax
cqto
idivq  -0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1135 <main_fun+0x35>
mov    -0x8(%rbp),%rax
cqto
idivq  -0x10(%rbp)
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    $0x2,%ecx
cqto
idiv   %rcx
cmp    $0x1,%rdx
jne    1199 <main_fun+0x99>
mov    -0x10(%rbp),%rax
sub    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
jmp    1114 <main_fun+0x14>
mov    -0x18(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<main_fun>:
test   %rdi,%rdi
jle    12bb <main_fun+0x1bb>
mov    %rdi,%r8
mov    $0x1,%ecx
jmp    114b <main_fun+0x4b>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
mov    %r8,%rax
shr    $0x3f,%rax
add    %r8,%rax
and    $0xfffffffffffffffe,%rax
mov    %r8,%rdx
sub    %rax,%rdx
mov    %rsi,%rax
sub    %rcx,%rax
cmp    $0x1,%rdx
cmove  %rax,%rcx
test   %r8,%r8
jle    12b7 <main_fun+0x1b7>
mov    %r8,%rax
or     %rsi,%rax
shr    $0x20,%rax
je     1170 <main_fun+0x70>
mov    %r8,%rax
cqto
idiv   %rsi
mov    %rax,%r8
cmp    $0x2,%rdx
jb     1120 <main_fun+0x20>
jmp    1180 <main_fun+0x80>
nopw   0x0(%rax,%rax,1)
mov    %r8d,%eax
xor    %edx,%edx
div    %esi
mov    %eax,%r8d
cmp    $0x2,%rdx
jb     1120 <main_fun+0x20>
lea    -0x1(%rdx),%r10
add    $0xfffffffffffffffe,%rdx
mov    %r10d,%r9d
and    $0x3,%r9d
mov    $0x2,%edi
cmp    $0x3,%rdx
jae    11f0 <main_fun+0xf0>
test   %r9,%r9
jne    11c9 <main_fun+0xc9>
jmp    1120 <main_fun+0x20>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %rcx,%rax
cqto
idiv   %rsi
mov    %rdx,%rcx
add    $0x1,%rdi
add    $0xffffffffffffffff,%r9
je     1120 <main_fun+0x20>
imul   %rdi,%rcx
mov    %rcx,%rax
or     %rsi,%rax
shr    $0x20,%rax
jne    11b0 <main_fun+0xb0>
mov    %ecx,%eax
xor    %edx,%edx
div    %esi
mov    %edx,%ecx
jmp    11bb <main_fun+0xbb>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
and    $0xfffffffffffffffc,%r10
neg    %r10
mov    $0x2,%edi
jmp    121a <main_fun+0x11a>
xchg   %ax,%ax
cqto
idiv   %rsi
mov    %rdx,%rcx
lea    (%r10,%rdi,1),%rax
add    $0x4,%rax
add    $0x4,%rdi
cmp    $0x2,%rax
je     119a <main_fun+0x9a>
imul   %rdi,%rcx
mov    %rcx,%rax
or     %rsi,%rax
shr    $0x20,%rax
je     1240 <main_fun+0x140>
mov    %rcx,%rax
cqto
idiv   %rsi
jmp    1246 <main_fun+0x146>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %ecx,%eax
xor    %edx,%edx
div    %esi
lea    0x1(%rdi),%rax
imul   %rdx,%rax
mov    %rax,%rcx
or     %rsi,%rcx
shr    $0x20,%rcx
je     1270 <main_fun+0x170>
cqto
idiv   %rsi
jmp    1274 <main_fun+0x174>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %edx,%edx
div    %esi
lea    0x2(%rdi),%rax
imul   %rdx,%rax
mov    %rax,%rcx
or     %rsi,%rcx
shr    $0x20,%rcx
je     1290 <main_fun+0x190>
cqto
idiv   %rsi
jmp    1294 <main_fun+0x194>
nop
xor    %edx,%edx
div    %esi
lea    0x3(%rdi),%rax
imul   %rdx,%rax
mov    %rax,%rcx
or     %rsi,%rcx
shr    $0x20,%rcx
jne    1200 <main_fun+0x100>
xor    %edx,%edx
div    %esi
mov    %edx,%ecx
jmp    1208 <main_fun+0x108>
mov    %rcx,%rax
ret
mov    $0x1,%eax
ret

LLVM IR (-O0):
define i64 @main_fun(i64 %0, i64 %1) {
%3 = alloca i64
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
store i64 %0, i64* %3
store i64 %1, i64* %4
store i64 1, i64* %5
br label %10
10: ; preds = %41, %2
%11 = load i64, i64* %3
%12 = icmp sgt i64 %11, 0
br i1 %12, label %13, label %42
13: ; preds = %10
%14 = load i64, i64* %3
%15 = load i64, i64* %4
%16 = srem i64 %14, %15
store i64 %16, i64* %6
store i64 2, i64* %7
br label %17
17: ; preds = %27, %13
%18 = load i64, i64* %7
%19 = load i64, i64* %6
%20 = icmp sle i64 %18, %19
br i1 %20, label %21, label %30
21: ; preds = %17
%22 = load i64, i64* %5
%23 = load i64, i64* %7
%24 = mul nsw i64 %22, %23
%25 = load i64, i64* %4
%26 = srem i64 %24, %25
store i64 %26, i64* %5
br label %27
27: ; preds = %21
%28 = load i64, i64* %7
%29 = add nsw i64 %28, 1
store i64 %29, i64* %7
br label %17
30: ; preds = %17
%31 = load i64, i64* %3
%32 = load i64, i64* %4
%33 = sdiv i64 %31, %32
store i64 %33, i64* %3
%34 = load i64, i64* %3
%35 = srem i64 %34, 2
%36 = icmp eq i64 %35, 1
br i1 %36, label %37, label %41
37: ; preds = %30
%38 = load i64, i64* %4
%39 = load i64, i64* %5
%40 = sub nsw i64 %38, %39
store i64 %40, i64* %5
br label %41
41: ; preds = %37, %30
br label %10
42: ; preds = %10
%43 = load i64, i64* %5
ret i64 %43
}

LLVM IR (-O2):
define i64 @main_fun(i64 %0, i64 %1) {
%3 = icmp sgt i64 %0, 0
br i1 %3, label %4, label %56
4: ; preds = %2, %49
%5 = phi i64 [ %8, %49 ], [ %0, %2 ]
%6 = phi i64 [ %54, %49 ], [ 1, %2 ]
%7 = srem i64 %5, %1
%8 = sdiv i64 %5, %1
%9 = icmp ult i64 %7, 2
br i1 %9, label %49, label %10
10: ; preds = %4
%11 = add i64 %7, -1
%12 = add i64 %7, -2
%13 = and i64 %11, 3
%14 = icmp ult i64 %12, 3
br i1 %14, label %35, label %15
15: ; preds = %10
%16 = and i64 %11, -4
br label %17
17: ; preds = %17, %15
%18 = phi i64 [ %6, %15 ], [ %31, %17 ]
%19 = phi i64 [ 2, %15 ], [ %32, %17 ]
%20 = phi i64 [ 0, %15 ], [ %33, %17 ]
%21 = mul nsw i64 %18, %19
%22 = srem i64 %21, %1
%23 = or i64 %19, 1
%24 = mul nsw i64 %22, %23
%25 = srem i64 %24, %1
%26 = add nuw i64 %19, 2
%27 = mul nsw i64 %25, %26
%28 = srem i64 %27, %1
%29 = add nuw i64 %19, 3
%30 = mul nsw i64 %28, %29
%31 = srem i64 %30, %1
%32 = add nuw i64 %19, 4
%33 = add i64 %20, 4
%34 = icmp eq i64 %33, %16
br i1 %34, label %35, label %17
35: ; preds = %17, %10
%36 = phi i64 [ undef, %10 ], [ %31, %17 ]
%37 = phi i64 [ %6, %10 ], [ %31, %17 ]
%38 = phi i64 [ 2, %10 ], [ %32, %17 ]
%39 = icmp eq i64 %13, 0
br i1 %39, label %49, label %40
40: ; preds = %35, %40
%41 = phi i64 [ %45, %40 ], [ %37, %35 ]
%42 = phi i64 [ %46, %40 ], [ %38, %35 ]
%43 = phi i64 [ %47, %40 ], [ 0, %35 ]
%44 = mul nsw i64 %41, %42
%45 = srem i64 %44, %1
%46 = add nuw i64 %42, 1
%47 = add i64 %43, 1
%48 = icmp eq i64 %47, %13
br i1 %48, label %49, label %40
49: ; preds = %35, %40, %4
%50 = phi i64 [ %6, %4 ], [ %36, %35 ], [ %45, %40 ]
%51 = srem i64 %8, 2
%52 = icmp eq i64 %51, 1
%53 = sub nsw i64 %1, %50
%54 = select i1 %52, i64 %53, i64 %50
%55 = icmp sgt i64 %8, 0
br i1 %55, label %4, label %56
56: ; preds = %49, %2
%57 = phi i64 [ 1, %2 ], [ %54, %49 ]
ret i64 %57
}