#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 *, ...);
int /*<<< orphan*/ scanf(char *, ...);
int strlen(char *);
main() {
  int num, col, m, i, j, k, l;
  char str[5000], str1[5000];
  while (1) {
    m = 0;
    scanf("%d", &col);
    if (col != 0) {
      scanf("%s", str);
      num = (strlen(str)) / col;
      for (i = 0; i < col; i++) {
        str1[m++] = str[i];
        l = i;
        k = 1;
        for (j = 0; j < num - 1; j++) {
          if (k == 1) {
            l = l + (col * 2 - 1) - 2 * i;
            str1[m++] = str[l];
            l = l + (1 + 2 * i);
          } else {
            str1[m++] = str[l];
          }
          k = k * -1;
        }
      }
      str1[m] = '\0';
      printf("%s", str1);
      printf("\n");
    } else
      break;
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0x2740,%rsp
movl   $0x0,-0x4(%rbp)
movl   $0x0,-0x10(%rbp)
lea    0xeb0(%rip),%rdi
lea    -0xc(%rbp),%rsi
mov    $0x0,%al
call   1050 <scanf@plt>
cmpl   $0x0,-0xc(%rbp)
je     12b7 <main+0x187>
lea    -0x13b0(%rbp),%rsi
lea    0xe90(%rip),%rdi
mov    $0x0,%al
call   1050 <scanf@plt>
lea    -0x13b0(%rbp),%rdi
call   1030 <strlen@plt>
cltd
idivl  -0xc(%rbp)
mov    %eax,-0x8(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1283 <main+0x153>
movslq -0x14(%rbp),%rax
mov    -0x13b0(%rbp,%rax,1),%cl
mov    -0x10(%rbp),%eax
mov    %eax,%edx
add    $0x1,%edx
mov    %edx,-0x10(%rbp)
cltq
mov    %cl,-0x2740(%rbp,%rax,1)
mov    -0x14(%rbp),%eax
mov    %eax,-0x20(%rbp)
movl   $0x1,-0x1c(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x8(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1270 <main+0x140>
cmpl   $0x1,-0x1c(%rbp)
jne    123c <main+0x10c>
mov    -0x20(%rbp),%eax
mov    -0xc(%rbp),%ecx
shl    $0x1,%ecx
sub    $0x1,%ecx
add    %ecx,%eax
mov    -0x14(%rbp),%ecx
shl    $0x1,%ecx
sub    %ecx,%eax
mov    %eax,-0x20(%rbp)
movslq -0x20(%rbp),%rax
mov    -0x13b0(%rbp,%rax,1),%cl
mov    -0x10(%rbp),%eax
mov    %eax,%edx
add    $0x1,%edx
mov    %edx,-0x10(%rbp)
cltq
mov    %cl,-0x2740(%rbp,%rax,1)
mov    -0x20(%rbp),%eax
mov    -0x14(%rbp),%ecx
shl    $0x1,%ecx
add    $0x1,%ecx
add    %ecx,%eax
mov    %eax,-0x20(%rbp)
jmp    125b <main+0x12b>
movslq -0x20(%rbp),%rax
mov    -0x13b0(%rbp,%rax,1),%cl
mov    -0x10(%rbp),%eax
mov    %eax,%edx
add    $0x1,%edx
mov    %edx,-0x10(%rbp)
cltq
mov    %cl,-0x2740(%rbp,%rax,1)
imul   $0xffffffff,-0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    11d3 <main+0xa3>
jmp    1275 <main+0x145>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1194 <main+0x64>
movslq -0x10(%rbp),%rax
movb   $0x0,-0x2740(%rbp,%rax,1)
lea    -0x2740(%rbp),%rsi
lea    0xd66(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
lea    0xd5b(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
jmp    12bc <main+0x18c>
jmp    12c1 <main+0x191>
jmp    1142 <main+0x12>
xor    %eax,%eax
add    $0x2740,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x2728,%rsp
lea    0xea8(%rip),%rdi
lea    0x8(%rsp),%rsi
xor    %eax,%eax
call   1060 <scanf@plt>
cmpl   $0x0,0x8(%rsp)
je     12e2 <main+0x1a2>
lea    0xe8d(%rip),%rbx
jmp    11c6 <main+0x86>
nopl   0x0(%rax,%rax,1)
movslq %ecx,%rax
movb   $0x0,0x10(%rsp,%rax,1)
lea    0xe74(%rip),%rbx
mov    %rbx,%rdi
lea    0x10(%rsp),%rsi
xor    %eax,%eax
call   1050 <printf@plt>
mov    $0xa,%edi
call   1030 <putchar@plt>
lea    0xe51(%rip),%rdi
lea    0x8(%rsp),%rsi
xor    %eax,%eax
call   1060 <scanf@plt>
cmpl   $0x0,0x8(%rsp)
je     12e2 <main+0x1a2>
mov    %rbx,%rdi
lea    0x13a0(%rsp),%rbx
mov    %rbx,%rsi
xor    %eax,%eax
call   1060 <scanf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
mov    0x8(%rsp),%r10d
mov    $0x0,%ecx
test   %r10d,%r10d
jle    1180 <main+0x40>
cltd
idiv   %r10d
lea    -0x1(%rax),%r9d
mov    %r9d,%ecx
and    $0xfffffffe,%ecx
mov    %ecx,0xc(%rsp)
lea    (%r10,%r10,1),%r15d
lea    (%r10,%r10,1),%r12d
add    $0xffffffff,%r12d
xor    %r11d,%r11d
mov    %r15d,%esi
xor    %ebp,%ebp
xor    %edx,%edx
jmp    123a <main+0xfa>
nopl   0x0(%rax)
add    $0x1,%rbp
add    $0xffffffff,%r12d
add    $0xffffffff,%r11d
add    $0x1,%esi
mov    %ecx,%edx
cmp    %r10,%rbp
je     1180 <main+0x40>
lea    0x1(%rdx),%ecx
mov    0x13a0(%rsp,%rbp,1),%r8b
movslq %edx,%rdx
mov    %r8b,0x10(%rsp,%rdx,1)
cmp    $0x2,%eax
jl     1220 <main+0xe0>
movslq %ecx,%rcx
jne    1270 <main+0x130>
mov    %ebp,%edx
test   $0x1,%r9b
je     1220 <main+0xe0>
jmp    12c0 <main+0x180>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %edx,%edx
mov    0xc(%rsp),%r8d
nopw   0x0(%rax,%rax,1)
lea    (%r12,%rdx,1),%r13d
lea    (%rsi,%rdx,1),%r14d
movslq %r13d,%rdi
movzbl 0x13a0(%rsp,%rdi,1),%ebx
mov    %bl,0x10(%rsp,%rcx,1)
movslq %r14d,%rdi
movzbl 0x13a0(%rsp,%rdi,1),%ebx
mov    %bl,0x11(%rsp,%rcx,1)
add    $0x2,%rcx
add    %r15d,%edx
add    $0xfffffffe,%r8d
jne    1280 <main+0x140>
sub    %r11d,%edx
test   $0x1,%r9b
je     1220 <main+0xe0>
lea    0x0(%rbp,%rbp,1),%edi
not    %edi
add    %r15d,%edi
add    %edx,%edi
movslq %edi,%rdx
mov    0x13a0(%rsp,%rdx,1),%dl
mov    %dl,0x10(%rsp,%rcx,1)
add    $0x1,%rcx
jmp    1220 <main+0xe0>
xor    %eax,%eax
add    $0x2728,%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 = [3 x i8] c"%s\00"
@.str.2 = [2 x i8] c"\0A\00"
define i32 @main() {
%1 = alloca i32
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca [5000 x i8]
%10 = alloca [5000 x i8]
store i32 0, i32* %1
br label %11
11: ; preds = %0, %93
store i32 0, i32* %4
%12 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %3)
%13 = load i32, i32* %3
%14 = icmp ne i32 %13, 0
br i1 %14, label %15, label %92
15: ; preds = %11
%16 = getelementptr inbounds [5000 x i8], [5000 x i8]* %9, i64 0, i64 0
%17 = call i32 (i8*, ...) @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %16)
%18 = getelementptr inbounds [5000 x i8], [5000 x i8]* %9, i64 0, i64 0
%19 = call i32 @strlen(i8* %18)
%20 = load i32, i32* %3
%21 = sdiv i32 %19, %20
store i32 %21, i32* %2
store i32 0, i32* %5
br label %22
22: ; preds = %82, %15
%23 = load i32, i32* %5
%24 = load i32, i32* %3
%25 = icmp slt i32 %23, %24
br i1 %25, label %26, label %85
26: ; preds = %22
%27 = load i32, i32* %5
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds [5000 x i8], [5000 x i8]* %9, i64 0, i64 %28
%30 = load i8, i8* %29
%31 = load i32, i32* %4
%32 = add nsw i32 %31, 1
store i32 %32, i32* %4
%33 = sext i32 %31 to i64
%34 = getelementptr inbounds [5000 x i8], [5000 x i8]* %10, i64 0, i64 %33
store i8 %30, i8* %34
%35 = load i32, i32* %5
store i32 %35, i32* %8
store i32 1, i32* %7
store i32 0, i32* %6
br label %36
36: ; preds = %78, %26
%37 = load i32, i32* %6
%38 = load i32, i32* %2
%39 = sub nsw i32 %38, 1
%40 = icmp slt i32 %37, %39
br i1 %40, label %41, label %81
41: ; preds = %36
%42 = load i32, i32* %7
%43 = icmp eq i32 %42, 1
br i1 %43, label %44, label %66
44: ; preds = %41
%45 = load i32, i32* %8
%46 = load i32, i32* %3
%47 = mul nsw i32 %46, 2
%48 = sub nsw i32 %47, 1
%49 = add nsw i32 %45, %48
%50 = load i32, i32* %5
%51 = mul nsw i32 2, %50
%52 = sub nsw i32 %49, %51
store i32 %52, i32* %8
%53 = load i32, i32* %8
%54 = sext i32 %53 to i64
%55 = getelementptr inbounds [5000 x i8], [5000 x i8]* %9, i64 0, i64 %54
%56 = load i8, i8* %55
%57 = load i32, i32* %4
%58 = add nsw i32 %57, 1
store i32 %58, i32* %4
%59 = sext i32 %57 to i64
%60 = getelementptr inbounds [5000 x i8], [5000 x i8]* %10, i64 0, i64 %59
store i8 %56, i8* %60
%61 = load i32, i32* %8
%62 = load i32, i32* %5
%63 = mul nsw i32 2, %62
%64 = add nsw i32 1, %63
%65 = add nsw i32 %61, %64
store i32 %65, i32* %8
br label %75
66: ; preds = %41
%67 = load i32, i32* %8
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds [5000 x i8], [5000 x i8]* %9, i64 0, i64 %68
%70 = load i8, i8* %69
%71 = load i32, i32* %4
%72 = add nsw i32 %71, 1
store i32 %72, i32* %4
%73 = sext i32 %71 to i64
%74 = getelementptr inbounds [5000 x i8], [5000 x i8]* %10, i64 0, i64 %73
store i8 %70, i8* %74
br label %75
75: ; preds = %66, %44
%76 = load i32, i32* %7
%77 = mul nsw i32 %76, -1
store i32 %77, i32* %7
br label %78
78: ; preds = %75
%79 = load i32, i32* %6
%80 = add nsw i32 %79, 1
store i32 %80, i32* %6
br label %36
81: ; preds = %36
br label %82
82: ; preds = %81
%83 = load i32, i32* %5
%84 = add nsw i32 %83, 1
store i32 %84, i32* %5
br label %22
85: ; preds = %22
%86 = load i32, i32* %4
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds [5000 x i8], [5000 x i8]* %10, i64 0, i64 %87
store i8 0, i8* %88
%89 = getelementptr inbounds [5000 x i8], [5000 x i8]* %10, i64 0, i64 0
%90 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i8* %89)
%91 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.2, i64 0, i64 0))
br label %93
92: ; preds = %11
br label %94
93: ; preds = %85
br label %11
94: ; preds = %92
ret i32 0
}

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