#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*/ getchar();
int /*<<< orphan*/ gets(char *);
int /*<<< orphan*/ printf(char *, ...);
int /*<<< orphan*/ scanf(char *, int *);
int sqrt(int);
int strlen(char *);
int main() {
  int i, j, t, m, n, len;
  int c;
  char arr[10050], a[1000][1000];
  scanf("%d", &t);
  getchar();
  while (t--) {
    gets(arr);
    len = strlen(arr);
    c = sqrt(len);
    if (c * c == len) {
      m = 0;
      for (i = 0; i < c; i++) {
        for (j = 0; j < c; j++) {
          a[i][j] = arr[m];
          m++;
        }
      }
      for (i = 0; i < c; i++) {
        for (j = 0; j < c; j++) {
          printf("%c", a[j][i]);
        }
      }
      printf("\n");
    } else
      printf("INVALID\n");
  }
  return 0;
}


x86 assembly (clang, -O0):
<main>:
push   %rbp
mov    %rsp,%rbp
sub    $0xf69b0,%rsp
movl   $0x0,-0x4(%rbp)
lea    0xe87(%rip),%rdi
lea    -0x10(%rbp),%rsi
call   1070 <scanf@plt>
mov    $0x0,%al
call   1050 <getchar@plt>
mov    -0x10(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x10(%rbp)
cmp    $0x0,%eax
je     12e9 <main+0x189>
lea    -0x2770(%rbp),%rdi
call   1060 <gets@plt>
lea    -0x2770(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%edi
call   1080 <sqrt@plt>
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
imul   -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jne    12d6 <main+0x176>
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    1251 <main+0xf1>
movl   $0x0,-0xc(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    123e <main+0xde>
movslq -0x14(%rbp),%rax
mov    -0x2770(%rbp,%rax,1),%dl
movslq -0x8(%rbp),%rcx
lea    -0xf69b0(%rbp),%rax
imul   $0x3e8,%rcx,%rcx
add    %rcx,%rax
movslq -0xc(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    11f4 <main+0x94>
jmp    1243 <main+0xe3>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    11e1 <main+0x81>
movl   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    12c3 <main+0x163>
movl   $0x0,-0xc(%rbp)
mov    -0xc(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    12b0 <main+0x150>
movslq -0xc(%rbp),%rcx
lea    -0xf69b0(%rbp),%rax
imul   $0x3e8,%rcx,%rcx
add    %rcx,%rax
movslq -0x8(%rbp),%rcx
movsbl (%rax,%rcx,1),%esi
lea    0xd68(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
mov    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0xc(%rbp)
jmp    126b <main+0x10b>
jmp    12b5 <main+0x155>
mov    -0x8(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x8(%rbp)
jmp    1258 <main+0xf8>
lea    0xd43(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
jmp    12e4 <main+0x184>
lea    0xd29(%rip),%rdi
mov    $0x0,%al
call   1040 <printf@plt>
jmp    1189 <main+0x29>
xor    %eax,%eax
add    $0xf69b0,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<main>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0xf69b8,%rsp
lea    0xe68(%rip),%rdi
lea    0xc(%rsp),%rsi
call   1090 <scanf@plt>
xor    %eax,%eax
call   1060 <getchar@plt>
subl   $0x1,0xc(%rsp)
jb     1328 <main+0x1a8>
lea    0x20(%rsp),%r12
jmp    11d7 <main+0x57>
nopl   0x0(%rax,%rax,1)
lea    0xe3c(%rip),%rdi
call   1040 <puts@plt>
subl   $0x1,0xc(%rsp)
jb     1328 <main+0x1a8>
mov    %r12,%rdi
call   1080 <gets@plt>
mov    %r12,%rdi
call   1050 <strlen@plt>
mov    %eax,%ebx
mov    %eax,%edi
call   10a0 <sqrt@plt>
mov    %eax,%ecx
imul   %eax,%ecx
cmp    %ebx,%ecx
jne    11c0 <main+0x40>
test   %eax,%eax
jle    1313 <main+0x193>
mov    %eax,%r13d
cmp    $0x1,%eax
mov    %rax,0x10(%rsp)
jne    1216 <main+0x96>
xor    %r15d,%r15d
xor    %r12d,%r12d
jmp    1288 <main+0x108>
lea    -0x1(%rax),%r14d
add    $0x1,%r14
mov    %r13d,%eax
and    $0xfffffffe,%eax
mov    %rax,0x18(%rsp)
lea    0x2770(%rsp),%rbx
xor    %r15d,%r15d
xor    %r12d,%r12d
nopw   0x0(%rax,%rax,1)
movslq %r12d,%rbp
lea    (%rsp,%rbp,1),%rsi
add    $0x20,%rsi
mov    %rbx,%rdi
mov    %r13,%rdx
call   1070 <memcpy@plt>
add    %r14d,%ebp
lea    0x3e8(%rbx),%rdi
movslq %ebp,%r12
lea    (%rsp,%r12,1),%rsi
add    $0x20,%rsi
mov    %r13,%rdx
call   1070 <memcpy@plt>
add    %r14,%r12
add    $0x2,%r15
add    $0x7d0,%rbx
cmp    %r15,0x18(%rsp)
jne    1240 <main+0xc0>
test   $0x1,%r13b
je     12b3 <main+0x133>
imul   $0x3e8,%r15,%rax
lea    (%rsp,%rax,1),%rdi
add    $0x2770,%rdi
movslq %r12d,%rax
lea    (%rsp,%rax,1),%rsi
add    $0x20,%rsi
mov    %r13,%rdx
call   1070 <memcpy@plt>
cmpl   $0x0,0x10(%rsp)
lea    0x20(%rsp),%r12
jle    1313 <main+0x193>
imul   $0x3e8,%r13,%r15
lea    0x2770(%rsp),%rbp
xor    %r14d,%r14d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movsbl 0x0(%rbp,%rbx,1),%edi
call   1030 <putchar@plt>
add    $0x3e8,%rbx
cmp    %rbx,%r15
jne    12f0 <main+0x170>
add    $0x1,%r14
add    $0x1,%rbp
cmp    %r13,%r14
jne    12e0 <main+0x160>
mov    $0xa,%edi
call   1030 <putchar@plt>
subl   $0x1,0xc(%rsp)
jae    11d7 <main+0x57>
xor    %eax,%eax
add    $0xf69b8,%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"%c\00"
@.str.2 = [2 x i8] c"\0A\00"
@.str.3 = [9 x i8] c"INVALID\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 [10050 x i8]
%10 = alloca [1000 x [1000 x i8]]
store i32 0, i32* %1
%11 = call i32 @scanf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32* %4)
%12 = call i32 (...) @getchar()
br label %13
13: ; preds = %90, %0
%14 = load i32, i32* %4
%15 = add nsw i32 %14, -1
store i32 %15, i32* %4
%16 = icmp ne i32 %14, 0
br i1 %16, label %17, label %91
17: ; preds = %13
%18 = getelementptr inbounds [10050 x i8], [10050 x i8]* %9, i64 0, i64 0
%19 = call i32 @gets(i8* %18)
%20 = getelementptr inbounds [10050 x i8], [10050 x i8]* %9, i64 0, i64 0
%21 = call i32 @strlen(i8* %20)
store i32 %21, i32* %7
%22 = load i32, i32* %7
%23 = call i32 @sqrt(i32 %22)
store i32 %23, i32* %8
%24 = load i32, i32* %8
%25 = load i32, i32* %8
%26 = mul nsw i32 %24, %25
%27 = load i32, i32* %7
%28 = icmp eq i32 %26, %27
br i1 %28, label %29, label %88
29: ; preds = %17
store i32 0, i32* %5
store i32 0, i32* %2
br label %30
30: ; preds = %56, %29
%31 = load i32, i32* %2
%32 = load i32, i32* %8
%33 = icmp slt i32 %31, %32
br i1 %33, label %34, label %59
34: ; preds = %30
store i32 0, i32* %3
br label %35
35: ; preds = %52, %34
%36 = load i32, i32* %3
%37 = load i32, i32* %8
%38 = icmp slt i32 %36, %37
br i1 %38, label %39, label %55
39: ; preds = %35
%40 = load i32, i32* %5
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds [10050 x i8], [10050 x i8]* %9, i64 0, i64 %41
%43 = load i8, i8* %42
%44 = load i32, i32* %2
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds [1000 x [1000 x i8]], [1000 x [1000 x i8]]* %10, i64 0, i64 %45
%47 = load i32, i32* %3
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds [1000 x i8], [1000 x i8]* %46, i64 0, i64 %48
store i8 %43, i8* %49
%50 = load i32, i32* %5
%51 = add nsw i32 %50, 1
store i32 %51, i32* %5
br label %52
52: ; preds = %39
%53 = load i32, i32* %3
%54 = add nsw i32 %53, 1
store i32 %54, i32* %3
br label %35
55: ; preds = %35
br label %56
56: ; preds = %55
%57 = load i32, i32* %2
%58 = add nsw i32 %57, 1
store i32 %58, i32* %2
br label %30
59: ; preds = %30
store i32 0, i32* %2
br label %60
60: ; preds = %83, %59
%61 = load i32, i32* %2
%62 = load i32, i32* %8
%63 = icmp slt i32 %61, %62
br i1 %63, label %64, label %86
64: ; preds = %60
store i32 0, i32* %3
br label %65
65: ; preds = %79, %64
%66 = load i32, i32* %3
%67 = load i32, i32* %8
%68 = icmp slt i32 %66, %67
br i1 %68, label %69, label %82
69: ; preds = %65
%70 = load i32, i32* %3
%71 = sext i32 %70 to i64
%72 = getelementptr inbounds [1000 x [1000 x i8]], [1000 x [1000 x i8]]* %10, i64 0, i64 %71
%73 = load i32, i32* %2
%74 = sext i32 %73 to i64
%75 = getelementptr inbounds [1000 x i8], [1000 x i8]* %72, i64 0, i64 %74
%76 = load i8, i8* %75
%77 = sext i8 %76 to i32
%78 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.1, i64 0, i64 0), i32 %77)
br label %79
79: ; preds = %69
%80 = load i32, i32* %3
%81 = add nsw i32 %80, 1
store i32 %81, i32* %3
br label %65
82: ; preds = %65
br label %83
83: ; preds = %82
%84 = load i32, i32* %2
%85 = add nsw i32 %84, 1
store i32 %85, i32* %2
br label %60
86: ; preds = %60
%87 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.2, i64 0, i64 0))
br label %90
88: ; preds = %17
%89 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.3, i64 0, i64 0))
br label %90
90: ; preds = %88, %86
br label %13
91: ; preds = %13
ret i32 0
}

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