int main() {
  int n, thrn[51], card[52], cut, rn, i, indt;
  while (scanf("%d", &n) && n) {
    for (i = 1; i < 51; i++)
      card[i] = i;
    i = 0;
    cut = 0;
    card[0] = 1;
    indt = 0;
    rn = n;
    while (1) {
      if (card[i]) {
        if (cut) {
          thrn[indt++] = card[i];
          card[i] = 0;
          cut = 0;
          rn--;
        } else {
          if (rn == 1)
            break;
          cut = 1;
        }
      }
      if (i == n)
        i = 1;
      i++;
    }
    for (printf("Discarded cards:"), rn = 0; rn < indt; rn++) {
      if (rn && rn < indt)
        putchar(',');
      printf(" %d", thrn[rn]);
    }
    printf("\nRemaining card: %d\n", card[i]);
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x1d0,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xec9(%rip),%rdi
lea    -0x8(%rbp),%rsi
mov    $0x0,%al
call   1050 <scanf@plt>
mov    %eax,%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x1c1(%rbp)
je     1174 <main+0x44>
cmpl   $0x0,-0x8(%rbp)
setne  %al
mov    %al,-0x1c1(%rbp)
mov    -0x1c1(%rbp),%al
test   $0x1,%al
jne    1187 <main+0x57>
jmp    1365 <main+0x235>
movl   $0x1,-0x1bc(%rbp)
cmpl   $0x33,-0x1bc(%rbp)
jge    11c6 <main+0x96>
mov    -0x1bc(%rbp),%ecx
movslq -0x1bc(%rbp),%rax
mov    %ecx,-0x1b0(%rbp,%rax,4)
mov    -0x1bc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1bc(%rbp)
jmp    1191 <main+0x61>
movl   $0x0,-0x1bc(%rbp)
movl   $0x0,-0x1b4(%rbp)
movl   $0x1,-0x1b0(%rbp)
movl   $0x0,-0x1c0(%rbp)
mov    -0x8(%rbp),%eax
mov    %eax,-0x1b8(%rbp)
movslq -0x1bc(%rbp),%rax
cmpl   $0x0,-0x1b0(%rbp,%rax,4)
je     1292 <main+0x162>
cmpl   $0x0,-0x1b4(%rbp)
je     1271 <main+0x141>
movslq -0x1bc(%rbp),%rax
mov    -0x1b0(%rbp,%rax,4),%ecx
mov    -0x1c0(%rbp),%eax
mov    %eax,%edx
add    $0x1,%edx
mov    %edx,-0x1c0(%rbp)
cltq
mov    %ecx,-0xe0(%rbp,%rax,4)
movslq -0x1bc(%rbp),%rax
movl   $0x0,-0x1b0(%rbp,%rax,4)
movl   $0x0,-0x1b4(%rbp)
mov    -0x1b8(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1b8(%rbp)
jmp    128d <main+0x15d>
cmpl   $0x1,-0x1b8(%rbp)
jne    1283 <main+0x153>
jmp    12bf <main+0x18f>
movl   $0x1,-0x1b4(%rbp)
jmp    1292 <main+0x162>
mov    -0x1bc(%rbp),%eax
cmp    -0x8(%rbp),%eax
jne    12ab <main+0x17b>
movl   $0x1,-0x1bc(%rbp)
mov    -0x1bc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1bc(%rbp)
jmp    11f7 <main+0xc7>
lea    0xd3a(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
movl   $0x0,-0x1b8(%rbp)
mov    -0x1b8(%rbp),%eax
cmp    -0x1c0(%rbp),%eax
jge    1344 <main+0x214>
cmpl   $0x0,-0x1b8(%rbp)
je     1314 <main+0x1e4>
mov    -0x1b8(%rbp),%eax
cmp    -0x1c0(%rbp),%eax
jge    1314 <main+0x1e4>
mov    $0x2c,%edi
mov    $0x0,%al
call   1030 <putchar@plt>
movslq -0x1b8(%rbp),%rax
mov    -0xe0(%rbp,%rax,4),%esi
lea    0xce8(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
mov    -0x1b8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1b8(%rbp)
jmp    12d7 <main+0x1a7>
movslq -0x1bc(%rbp),%rax
mov    -0x1b0(%rbp,%rax,4),%esi
lea    0xcbc(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
jmp    1142 <main+0x12>
xor    %eax,%eax
add    $0x1d0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x1b8,%rsp
lea    0xf8a(%rip),%rdi
lea    0xc(%rsp),%rsi
xor    %eax,%eax
call   1050 <scanf@plt>
test   %eax,%eax
je     1327 <main+0x1f7>
mov    0xc(%rsp),%eax
test   %eax,%eax
je     1327 <main+0x1f7>
mov    $0x2,%r14d
lea    0xf5c(%rip),%r12
lea    0xc(%rsp),%r13
nopw   0x0(%rax,%rax,1)
movaps 0xe79(%rip),%xmm0
movups %xmm0,0x14(%rsp)
movaps 0xe7d(%rip),%xmm0
movups %xmm0,0x24(%rsp)
movaps 0xe81(%rip),%xmm0
movups %xmm0,0x34(%rsp)
movaps 0xe85(%rip),%xmm0
movups %xmm0,0x44(%rsp)
movaps 0xe89(%rip),%xmm0
movups %xmm0,0x54(%rsp)
movaps 0xe8d(%rip),%xmm0
movups %xmm0,0x64(%rsp)
movaps 0xe91(%rip),%xmm0
movups %xmm0,0x74(%rsp)
movaps 0xe95(%rip),%xmm0
movups %xmm0,0x84(%rsp)
movaps 0xe96(%rip),%xmm0
movups %xmm0,0x94(%rsp)
movaps 0xe97(%rip),%xmm0
movups %xmm0,0xa4(%rsp)
movaps 0xe98(%rip),%xmm0
movups %xmm0,0xb4(%rsp)
movaps 0xe99(%rip),%xmm0
movups %xmm0,0xc4(%rsp)
movabs $0x3200000031,%rcx
mov    %rcx,0xd4(%rsp)
movl   $0x1,0x10(%rsp)
mov    $0x1,%ebp
xor    %esi,%esi
mov    %eax,%ecx
xor    %edx,%edx
xor    %r15d,%r15d
jmp    127e <main+0x14e>
nopl   0x0(%rax)
movslq %edx,%rsi
movslq %r15d,%rdi
add    $0x1,%r15d
mov    %ebp,0xe0(%rsp,%rdi,4)
movl   $0x0,0x10(%rsp,%rsi,4)
add    $0xffffffff,%ecx
xor    %esi,%esi
cmp    %eax,%edx
lea    0x1(%rdx),%edx
cmove  %r14d,%edx
movslq %edx,%rdi
mov    0x10(%rsp,%rdi,4),%ebp
test   %ebp,%ebp
je     126e <main+0x13e>
test   %esi,%esi
jne    1250 <main+0x120>
mov    $0x1,%esi
cmp    $0x1,%ecx
jne    126e <main+0x13e>
lea    0xe29(%rip),%rdi
xor    %eax,%eax
call   1040 <printf@plt>
test   %r15d,%r15d
jle    12f6 <main+0x1c6>
mov    0xe0(%rsp),%esi
mov    %r12,%rdi
xor    %eax,%eax
call   1040 <printf@plt>
cmp    $0x1,%r15d
je     12f6 <main+0x1c6>
mov    %r15d,%r15d
mov    $0x1,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    $0x2c,%edi
xor    %eax,%eax
call   1030 <putchar@plt>
mov    0xe0(%rsp,%rbx,4),%esi
mov    %r12,%rdi
xor    %eax,%eax
call   1040 <printf@plt>
add    $0x1,%rbx
cmp    %rbx,%r15
jne    12d0 <main+0x1a0>
lea    0xdd8(%rip),%rdi
mov    %ebp,%esi
xor    %eax,%eax
call   1040 <printf@plt>
lea    0xdc5(%rip),%rdi
mov    %r13,%rsi
xor    %eax,%eax
call   1050 <scanf@plt>
test   %eax,%eax
je     1327 <main+0x1f7>
mov    0xc(%rsp),%eax
test   %eax,%eax
jne    1180 <main+0x50>
xor    %eax,%eax
add    $0x1b8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

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