#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 */
long F0(long);
scalar_t__ F1(long, long, long);
long bitsReverse64(long);
scalar_t__ popcount64(long);
int /*<<< orphan*/ printf(char *, long);
int /*<<< orphan*/ scanf(char *, long *);
int main(void) {
  long n, i, j, d, X, D, P, Q;
  scanf("%ld", &n);
  for (i = n, D = 1; i >>= 1; D++)
    ;
  X = F0(D - 1);
  P = D < 4 ? -1 : (D - 4) / 2;
  Q = n & (~((1L << (D - P - 2)) - 1));
  for (i = 0; i <= P; i++) {
    if ((n >> (D - 2 - i)) & 1) {
      j = (n >> (D - i - 1)) & ((1L << i) - 1);
      X += F1(D, i, j);
    }
  }
  d = 64 - D;
  for (i = Q; i <= n; i++)
    X += popcount64(i + (bitsReverse64(i) >> d));
  printf("%ld\n", X);
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xe8a(%rip),%rdi
lea    -0x10(%rbp),%rsi
call   1060 <scanf@plt>
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
movq   $0x1,-0x38(%rbp)
mov    -0x18(%rbp),%rax
sar    $0x1,%rax
mov    %rax,-0x18(%rbp)
cmp    $0x0,%rax
je     11bb <main+0x5b>
jmp    11aa <main+0x4a>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    118f <main+0x2f>
mov    -0x38(%rbp),%rdi
sub    $0x1,%rdi
call   1080 <F0@plt>
mov    %rax,-0x30(%rbp)
cmpq   $0x4,-0x38(%rbp)
jge    11e7 <main+0x87>
mov    $0xffffffffffffffff,%rax
mov    %rax,-0x50(%rbp)
jmp    11fd <main+0x9d>
mov    -0x38(%rbp),%rax
sub    $0x4,%rax
mov    $0x2,%ecx
cqto
idiv   %rcx
mov    %rax,-0x50(%rbp)
mov    -0x50(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x38(%rbp),%rcx
sub    -0x40(%rbp),%rcx
sub    $0x2,%rcx
mov    $0x1,%edx
shl    %cl,%rdx
mov    %rdx,%rcx
sub    $0x1,%rcx
xor    $0xffffffffffffffff,%rcx
and    %rcx,%rax
mov    %rax,-0x48(%rbp)
movq   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmp    -0x40(%rbp),%rax
jg     12c2 <main+0x162>
mov    -0x10(%rbp),%rax
mov    -0x38(%rbp),%rcx
sub    $0x2,%rcx
sub    -0x18(%rbp),%rcx
sar    %cl,%rax
and    $0x1,%rax
cmp    $0x0,%rax
je     12ac <main+0x14c>
mov    -0x10(%rbp),%rax
mov    -0x38(%rbp),%rcx
sub    -0x18(%rbp),%rcx
sub    $0x1,%rcx
sar    %cl,%rax
mov    -0x18(%rbp),%rcx
mov    $0x1,%edx
shl    %cl,%rdx
mov    %rdx,%rcx
sub    $0x1,%rcx
and    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x38(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    -0x20(%rbp),%rdx
call   1050 <F1@plt>
add    -0x30(%rbp),%rax
mov    %rax,-0x30(%rbp)
jmp    12b1 <main+0x151>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1237 <main+0xd7>
mov    $0x40,%eax
sub    -0x38(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x48(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmp    -0x10(%rbp),%rax
jg     1322 <main+0x1c2>
mov    -0x18(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x18(%rbp),%rdi
call   1070 <bitsReverse64@plt>
mov    -0x58(%rbp),%rdi
mov    -0x28(%rbp),%rcx
sar    %cl,%rax
add    %rax,%rdi
call   1040 <popcount64@plt>
add    -0x30(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    12d7 <main+0x177>
mov    -0x30(%rbp),%rsi
lea    0xcd7(%rip),%rdi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
lea    0xe8e(%rip),%rdi
mov    %rsp,%rsi
call   1060 <scanf@plt>
mov    (%rsp),%rax
cmp    $0x2,%rax
jae    1196 <main+0x36>
xor    %edi,%edi
call   1080 <F0@plt>
mov    %rax,%r15
mov    $0x1,%r14d
jmp    11c5 <main+0x65>
xor    %ebx,%ebx
mov    %rax,%rcx
nopl   0x0(%rax,%rax,1)
sar    %rcx
add    $0x1,%rbx
cmp    $0x3,%rax
mov    %rcx,%rax
ja     11a0 <main+0x40>
mov    %rbx,%rdi
call   1080 <F0@plt>
mov    %rax,%r15
lea    0x1(%rbx),%r14
cmp    $0x2,%rbx
ja     11e4 <main+0x84>
mov    (%rsp),%rax
lea    -0x1(%r14),%ecx
mov    %rax,%r12
shr    %cl,%r12
shl    %cl,%r12
cmp    %rax,%r12
jle    125e <main+0xfe>
jmp    1297 <main+0x137>
lea    -0x3(%rbx),%rax
shr    $0x3f,%rax
lea    (%rbx,%rax,1),%rbp
add    $0xfffffffffffffffd,%rbp
sar    %rbp
mov    (%rsp),%rax
mov    %ebp,%ecx
not    %ecx
add    %ebx,%ecx
mov    %rax,%r12
shr    %cl,%r12
shl    %cl,%r12
xor    %r13d,%r13d
nopl   (%rax)
lea    -0x1(%rbx),%ecx
movzbl %cl,%ecx
bt     %rcx,%rax
jae    1242 <main+0xe2>
mov    %ebx,%ecx
sar    %cl,%rax
mov    $0xffffffffffffffff,%rdx
mov    %r13d,%ecx
shl    %cl,%rdx
not    %rdx
and    %rax,%rdx
mov    %r14,%rdi
mov    %r13,%rsi
call   1050 <F1@plt>
add    %rax,%r15
cmp    %r13,%rbp
je     1255 <main+0xf5>
add    $0x1,%r13
mov    (%rsp),%rax
add    $0xffffffffffffffff,%rbx
jmp    1210 <main+0xb0>
mov    (%rsp),%rax
cmp    %rax,%r12
jg     1297 <main+0x137>
mov    $0x40,%ebx
sub    %r14,%rbx
cs nopw 0x0(%rax,%rax,1)
mov    %r12,%rdi
call   1070 <bitsReverse64@plt>
mov    %ebx,%ecx
sar    %cl,%rax
lea    (%rax,%r12,1),%rdi
call   1040 <popcount64@plt>
add    %rax,%r15
lea    0x1(%r12),%rax
cmp    (%rsp),%r12
mov    %rax,%r12
jl     1270 <main+0x110>
lea    0xd66(%rip),%rdi
mov    %r15,%rsi
call   1030 <printf@plt>
xor    %eax,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
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
%10 = call i32 @scanf(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i64* %2)
%11 = load i64, i64* %2
store i64 %11, i64* %3
store i64 1, i64* %7
br label %12
12: ; preds = %17, %0
%13 = load i64, i64* %3
%14 = ashr i64 %13, 1
store i64 %14, i64* %3
%15 = icmp ne i64 %14, 0
br i1 %15, label %16, label %20
16: ; preds = %12
br label %17
17: ; preds = %16
%18 = load i64, i64* %7
%19 = add nsw i64 %18, 1
store i64 %19, i64* %7
br label %12
20: ; preds = %12
%21 = load i64, i64* %7
%22 = sub nsw i64 %21, 1
%23 = call i64 @F0(i64 %22)
store i64 %23, i64* %6
%24 = load i64, i64* %7
%25 = icmp slt i64 %24, 4
br i1 %25, label %26, label %27
26: ; preds = %20
br label %31
27: ; preds = %20
%28 = load i64, i64* %7
%29 = sub nsw i64 %28, 4
%30 = sdiv i64 %29, 2
br label %31
31: ; preds = %27, %26
%32 = phi i64 [ -1, %26 ], [ %30, %27 ]
store i64 %32, i64* %8
%33 = load i64, i64* %2
%34 = load i64, i64* %7
%35 = load i64, i64* %8
%36 = sub nsw i64 %34, %35
%37 = sub nsw i64 %36, 2
%38 = shl i64 1, %37
%39 = sub nsw i64 %38, 1
%40 = xor i64 %39, -1
%41 = and i64 %33, %40
store i64 %41, i64* %9
store i64 0, i64* %3
br label %42
42: ; preds = %73, %31
%43 = load i64, i64* %3
%44 = load i64, i64* %8
%45 = icmp sle i64 %43, %44
br i1 %45, label %46, label %76
46: ; preds = %42
%47 = load i64, i64* %2
%48 = load i64, i64* %7
%49 = sub nsw i64 %48, 2
%50 = load i64, i64* %3
%51 = sub nsw i64 %49, %50
%52 = ashr i64 %47, %51
%53 = and i64 %52, 1
%54 = icmp ne i64 %53, 0
br i1 %54, label %55, label %72
55: ; preds = %46
%56 = load i64, i64* %2
%57 = load i64, i64* %7
%58 = load i64, i64* %3
%59 = sub nsw i64 %57, %58
%60 = sub nsw i64 %59, 1
%61 = ashr i64 %56, %60
%62 = load i64, i64* %3
%63 = shl i64 1, %62
%64 = sub nsw i64 %63, 1
%65 = and i64 %61, %64
store i64 %65, i64* %4
%66 = load i64, i64* %7
%67 = load i64, i64* %3
%68 = load i64, i64* %4
%69 = call i64 @F1(i64 %66, i64 %67, i64 %68)
%70 = load i64, i64* %6
%71 = add nsw i64 %70, %69
store i64 %71, i64* %6
br label %72
72: ; preds = %55, %46
br label %73
73: ; preds = %72
%74 = load i64, i64* %3
%75 = add nsw i64 %74, 1
store i64 %75, i64* %3
br label %42
76: ; preds = %42
%77 = load i64, i64* %7
%78 = sub nsw i64 64, %77
store i64 %78, i64* %5
%79 = load i64, i64* %9
store i64 %79, i64* %3
br label %80
80: ; preds = %94, %76
%81 = load i64, i64* %3
%82 = load i64, i64* %2
%83 = icmp sle i64 %81, %82
br i1 %83, label %84, label %97
84: ; preds = %80
%85 = load i64, i64* %3
%86 = load i64, i64* %3
%87 = call i64 @bitsReverse64(i64 %86)
%88 = load i64, i64* %5
%89 = ashr i64 %87, %88
%90 = add nsw i64 %85, %89
%91 = call i64 @popcount64(i64 %90)
%92 = load i64, i64* %6
%93 = add nsw i64 %92, %91
store i64 %93, i64* %6
br label %94
94: ; preds = %84
%95 = load i64, i64* %3
%96 = add nsw i64 %95, 1
store i64 %96, i64* %3
br label %80
97: ; preds = %80
%98 = load i64, i64* %6
%99 = call i32 @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64 %98)
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 = load i64, i64* %1
%5 = icmp ult i64 %4, 2
br i1 %5, label %6, label %8
6: ; preds = %0
%7 = call i64 @F0(i64 0)
br label %17
8: ; preds = %0, %8
%9 = phi i64 [ %11, %8 ], [ %4, %0 ]
%10 = phi i64 [ %12, %8 ], [ 1, %0 ]
%11 = ashr i64 %9, 1
%12 = add nuw nsw i64 %10, 1
%13 = icmp ult i64 %9, 4
br i1 %13, label %14, label %8
14: ; preds = %8
%15 = call i64 @F0(i64 %10)
%16 = icmp ult i64 %10, 3
br i1 %16, label %17, label %24
17: ; preds = %14, %6
%18 = phi i64 [ %7, %6 ], [ %15, %14 ]
%19 = phi i64 [ 1, %6 ], [ %12, %14 ]
%20 = load i64, i64* %1
%21 = add nsw i64 %19, -1
%22 = shl nsw i64 -1, %21
%23 = and i64 %22, %20
br label %56
24: ; preds = %14
%25 = add nsw i64 %10, -3
%26 = sdiv i64 %25, 2
%27 = load i64, i64* %1
%28 = add nsw i64 %10, -1
%29 = sub i64 %28, %26
%30 = shl nsw i64 -1, %29
%31 = and i64 %30, %27
br label %32
32: ; preds = %24, %51
%33 = phi i64 [ %53, %51 ], [ %27, %24 ]
%34 = phi i64 [ %52, %51 ], [ 0, %24 ]
%35 = phi i64 [ %49, %51 ], [ %15, %24 ]
%36 = sub i64 %28, %34
%37 = shl nuw i64 1, %36
%38 = and i64 %33, %37
%39 = icmp eq i64 %38, 0
br i1 %39, label %48, label %40
40: ; preds = %32
%41 = sub nsw i64 %10, %34
%42 = ashr i64 %33, %41
%43 = shl nsw i64 -1, %34
%44 = xor i64 %43, -1
%45 = and i64 %42, %44
%46 = call i64 @F1(i64 %12, i64 %34, i64 %45)
%47 = add nsw i64 %46, %35
br label %48
48: ; preds = %32, %40
%49 = phi i64 [ %47, %40 ], [ %35, %32 ]
%50 = icmp eq i64 %34, %26
br i1 %50, label %54, label %51
51: ; preds = %48
%52 = add nuw nsw i64 %34, 1
%53 = load i64, i64* %1
br label %32
54: ; preds = %48
%55 = load i64, i64* %1
br label %56
56: ; preds = %17, %54
%57 = phi i64 [ %31, %54 ], [ %23, %17 ]
%58 = phi i64 [ %12, %54 ], [ %19, %17 ]
%59 = phi i64 [ %55, %54 ], [ %20, %17 ]
%60 = phi i64 [ %49, %54 ], [ %18, %17 ]
%61 = sub nsw i64 64, %58
%62 = icmp sgt i64 %57, %59
br i1 %62, label %74, label %63
63: ; preds = %56, %63
%64 = phi i64 [ %71, %63 ], [ %57, %56 ]
%65 = phi i64 [ %70, %63 ], [ %60, %56 ]
%66 = call i64 @bitsReverse64(i64 %64)
%67 = ashr i64 %66, %61
%68 = add nsw i64 %67, %64
%69 = call i64 @popcount64(i64 %68)
%70 = add nsw i64 %69, %65
%71 = add nsw i64 %64, 1
%72 = load i64, i64* %1
%73 = icmp slt i64 %64, %72
br i1 %73, label %63, label %74
74: ; preds = %63, %56
%75 = phi i64 [ %60, %56 ], [ %70, %63 ]
%76 = call i32 @printf(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.1, i64 0, i64 0), i64 %75)
ret i32 0
}