void subsk(big, new, k, flag) char *big, *new;
int k, flag;
{
  int i, n = strlen(big), inew, add, inum, j, m, isign, ok, multflag = 0;
  char ch, chp, num[20];
  inew = 0;
  i = 0;
  if (is_comment(big)) {
    strcpy(new, big);
    return;
  }
  while (1) {
    ch = big[i];
    chp = big[i + 1];
    if (ch == '[' && chp != 'j' && not_ker(big, i)) {
      ok = 1;
      add = 0;
      inum = 0;
      isign = 1;
      i++;
      while (ok) {
        ch = big[i];
        if (ch == ']') {
          i++;
          num[inum] = 0;
          add = atoi(num);
          sprintf(num, "%d", add);
          m = strlen(num);
          for (j = 0; j < m; j++) {
            new[inew] = num[j];
            inew++;
          }
          ok = 0;
        } else {
          i++;
          num[inum] = ch;
          inum++;
        }
      }
    } else if (ch == '[' && chp == 'j') {
      if (flag == 0) {
        printf(" Illegal use of [j] at %s \n", big);
        exit(0);
      }
      add = 0;
      inum = 0;
      isign = 1;
      i += 2;
      ok = 1;
      while (ok) {
        if (i >= n) {
          new[inew] = 0;
          plintf("Error in %s The expression does not terminate. Perhaps a ] "
                 "is missing.\n",
                 big);
          exit(0);
        }
        ch = big[i];
        switch (ch) {
        case '+':
          isign = 1;
          i++;
          break;
        case '-':
          isign = -1;
          i++;
          break;
        case '*':
          i++;
          isign = 1;
          multflag = 1;
          break;
        case ']':
          i++;
          num[inum] = 0;
          if (multflag == 0) {
            add = atoi(num) * isign + k;
          } else {
            add = atoi(num) * k;
            multflag = 0;
          }
          sprintf(num, "%d", add);
          m = strlen(num);
          for (j = 0; j < m; j++) {
            new[inew] = num[j];
            inew++;
          }
          ok = 0;
          break;
        default:
          i++;
          num[inum] = ch;
          inum++;
          break;
        }
      }
    } else {
      new[inew] = ch;
      i++;
      inew++;
    }
    if (i >= n)
      break;
  }
  new[inew] = 0;
}


x86 assembly (clang, -O0):
<subsk>:
push   %rbp
mov    %rsp,%rbp
sub    $0x70,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    -0x8(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x20(%rbp)
movl   $0x0,-0x40(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1060 <is_comment@plt>
cmp    $0x0,%eax
je     11ed <subsk+0x5d>
mov    -0x10(%rbp),%rdi
mov    -0x8(%rbp),%rsi
call   1030 <strcpy@plt>
jmp    159f <subsk+0x40f>
jmp    11f2 <subsk+0x62>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x41(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x1c(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x42(%rbp)
movsbl -0x41(%rbp),%eax
cmp    $0x5b,%eax
jne    133f <subsk+0x1af>
movsbl -0x42(%rbp),%eax
cmp    $0x6a,%eax
je     133f <subsk+0x1af>
mov    -0x8(%rbp),%rdi
mov    -0x1c(%rbp),%esi
mov    $0x0,%al
call   1090 <not_ker@plt>
cmp    $0x0,%eax
je     133f <subsk+0x1af>
movl   $0x1,-0x3c(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x1,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x3c(%rbp)
je     133a <subsk+0x1aa>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x41(%rbp)
movsbl -0x41(%rbp),%eax
cmp    $0x5d,%eax
jne    1318 <subsk+0x188>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
movslq -0x2c(%rbp),%rax
movb   $0x0,-0x60(%rbp,%rax,1)
lea    -0x60(%rbp),%rdi
mov    $0x0,%al
call   1080 <atoi@plt>
mov    %eax,-0x28(%rbp)
lea    -0x60(%rbp),%rdi
mov    -0x28(%rbp),%edx
lea    0xd44(%rip),%rsi
mov    $0x0,%al
call   10a0 <sprintf@plt>
lea    -0x60(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x34(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    130c <subsk+0x17c>
movslq -0x30(%rbp),%rax
mov    -0x60(%rbp,%rax,1),%dl
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    12d6 <subsk+0x146>
movl   $0x0,-0x3c(%rbp)
jmp    1335 <subsk+0x1a5>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x41(%rbp),%cl
movslq -0x2c(%rbp),%rax
mov    %cl,-0x60(%rbp,%rax,1)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1269 <subsk+0xd9>
jmp    157d <subsk+0x3ed>
movsbl -0x41(%rbp),%eax
cmp    $0x5b,%eax
jne    1558 <subsk+0x3c8>
movsbl -0x42(%rbp),%eax
cmp    $0x6a,%eax
jne    1558 <subsk+0x3c8>
cmpl   $0x0,-0x18(%rbp)
jne    137c <subsk+0x1ec>
mov    -0x8(%rbp),%rsi
lea    0xc95(%rip),%rdi
mov    $0x0,%al
call   1050 <printf@plt>
xor    %edi,%edi
call   10b0 <exit@plt>
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x1,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x1c(%rbp)
movl   $0x1,-0x3c(%rbp)
cmpl   $0x0,-0x3c(%rbp)
je     1553 <subsk+0x3c3>
mov    -0x1c(%rbp),%eax
cmp    -0x20(%rbp),%eax
jl     13dc <subsk+0x24c>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x8(%rbp),%rsi
lea    0xc51(%rip),%rdi
mov    $0x0,%al
call   1070 <plintf@plt>
xor    %edi,%edi
call   10b0 <exit@plt>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x41(%rbp)
movsbl -0x41(%rbp),%eax
mov    %eax,-0x64(%rbp)
sub    $0x2a,%eax
je     145c <subsk+0x2cc>
jmp    13ff <subsk+0x26f>
mov    -0x64(%rbp),%eax
sub    $0x2b,%eax
je     1432 <subsk+0x2a2>
jmp    1410 <subsk+0x280>
mov    -0x64(%rbp),%eax
sub    $0x2d,%eax
je     1447 <subsk+0x2b7>
jmp    1421 <subsk+0x291>
mov    -0x64(%rbp),%eax
sub    $0x5d,%eax
je     1478 <subsk+0x2e8>
jmp    1531 <subsk+0x3a1>
movl   $0x1,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    154e <subsk+0x3be>
movl   $0xffffffff,-0x38(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    154e <subsk+0x3be>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
movl   $0x1,-0x38(%rbp)
movl   $0x1,-0x40(%rbp)
jmp    154e <subsk+0x3be>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
movslq -0x2c(%rbp),%rax
movb   $0x0,-0x60(%rbp,%rax,1)
cmpl   $0x0,-0x40(%rbp)
jne    14ae <subsk+0x31e>
lea    -0x60(%rbp),%rdi
mov    $0x0,%al
call   1080 <atoi@plt>
imul   -0x38(%rbp),%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x28(%rbp)
jmp    14c7 <subsk+0x337>
lea    -0x60(%rbp),%rdi
mov    $0x0,%al
call   1080 <atoi@plt>
imul   -0x14(%rbp),%eax
mov    %eax,-0x28(%rbp)
movl   $0x0,-0x40(%rbp)
lea    -0x60(%rbp),%rdi
mov    -0x28(%rbp),%edx
lea    0xb2b(%rip),%rsi
mov    $0x0,%al
call   10a0 <sprintf@plt>
lea    -0x60(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x34(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x30(%rbp),%eax
cmp    -0x34(%rbp),%eax
jge    1525 <subsk+0x395>
movslq -0x30(%rbp),%rax
mov    -0x60(%rbp,%rax,1),%dl
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    14ef <subsk+0x35f>
movl   $0x0,-0x3c(%rbp)
jmp    154e <subsk+0x3be>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x41(%rbp),%cl
movslq -0x2c(%rbp),%rax
mov    %cl,-0x60(%rbp,%rax,1)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    13a1 <subsk+0x211>
jmp    1578 <subsk+0x3e8>
mov    -0x41(%rbp),%dl
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    157d <subsk+0x3ed>
mov    -0x1c(%rbp),%eax
cmp    -0x20(%rbp),%eax
jl     158e <subsk+0x3fe>
jmp    1593 <subsk+0x403>
jmp    11f2 <subsk+0x62>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
add    $0x70,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<subsk>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x48,%rsp
mov    %ecx,%r14d
mov    %edx,%ebx
mov    %rsi,%r12
mov    %rdi,%r13
call   1040 <strlen@plt>
mov    %rax,%rbp
mov    %r13,%rdi
xor    %eax,%eax
call   1070 <is_comment@plt>
test   %eax,%eax
je     11e8 <subsk+0x48>
mov    %r12,%rdi
mov    %r13,%rsi
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
jmp    1030 <strcpy@plt>
mov    %ebx,0x18(%rsp)
movslq %ebp,%rax
mov    %rax,0x40(%rsp)
lea    0x2(%r13),%rax
mov    %rax,0x38(%rsp)
xor    %eax,%eax
mov    %rax,(%rsp)
xor    %r15d,%r15d
mov    %r12,0x10(%rsp)
mov    %r14d,0x1c(%rsp)
mov    %rbp,0x8(%rsp)
jmp    1247 <subsk+0xa7>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rbp
mov    (%rsp),%rcx
movslq %ecx,%rax
mov    %bl,(%r12,%rax,1)
add    $0x1,%ecx
mov    %rcx,(%rsp)
mov    %ebp,%r15d
mov    0x8(%rsp),%rbp
cmp    %ebp,%r15d
jge    144b <subsk+0x2ab>
movslq %r15d,%rbp
mov    0x0(%r13,%rbp,1),%bl
mov    0x1(%r13,%rbp,1),%al
cmp    $0x5b,%bl
jne    1290 <subsk+0xf0>
cmp    $0x6a,%al
je     1290 <subsk+0xf0>
mov    %r13,%rdi
mov    %r15d,%esi
xor    %eax,%eax
call   10a0 <not_ker@plt>
test   %eax,%eax
je     1220 <subsk+0x80>
mov    0x1(%rbp,%r13,1),%cl
cmp    $0x5d,%cl
jne    13a6 <subsk+0x206>
xor    %eax,%eax
lea    0x20(%rsp),%rbx
jmp    13d4 <subsk+0x234>
nopl   0x0(%rax,%rax,1)
cmp    $0x5b,%bl
jne    1220 <subsk+0x80>
cmp    $0x6a,%al
jne    1220 <subsk+0x80>
test   %r14d,%r14d
je     1488 <subsk+0x2e8>
lea    0x2(%r15),%eax
cltq
mov    0x40(%rsp),%rcx
sub    %rax,%rcx
jle    1463 <subsk+0x2c3>
add    %r13,%rax
mov    $0x1,%r12d
xor    %r14d,%r14d
xor    %edx,%edx
xor    %ebp,%ebp
jmp    12e8 <subsk+0x148>
nopl   0x0(%rax,%rax,1)
mov    $0x1,%r12d
mov    $0x1,%ebp
add    $0x1,%r14
cmp    %r14,%rcx
je     1463 <subsk+0x2c3>
movzbl (%rax,%r14,1),%ebx
movsbl %bl,%esi
cmp    $0x2c,%esi
jg     1310 <subsk+0x170>
cmp    $0x2a,%esi
je     12d0 <subsk+0x130>
cmp    $0x2b,%esi
jne    1322 <subsk+0x182>
mov    $0x1,%r12d
jmp    12db <subsk+0x13b>
nopw   0x0(%rax,%rax,1)
cmp    $0x2d,%esi
jne    131d <subsk+0x17d>
mov    $0xffffffff,%r12d
jmp    12db <subsk+0x13b>
cmp    $0x5d,%esi
je     1330 <subsk+0x190>
movslq %edx,%rsi
mov    %bl,0x20(%rsp,%rsi,1)
add    $0x1,%edx
jmp    12db <subsk+0x13b>
xchg   %ax,%ax
movslq %edx,%rax
movb   $0x0,0x20(%rsp,%rax,1)
lea    0x20(%rsp),%rbx
mov    %rbx,%rdi
xor    %eax,%eax
call   1090 <atoi@plt>
imul   %eax,%r12d
mov    0x18(%rsp),%ecx
add    %ecx,%r12d
imul   %ecx,%eax
test   %ebp,%ebp
cmovne %eax,%r12d
mov    %rbx,%rdi
lea    0xc9b(%rip),%rsi
mov    %r12d,%edx
xor    %eax,%eax
call   10b0 <sprintf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
mov    %rax,%rbp
test   %ebp,%ebp
jle    142c <subsk+0x28c>
mov    %rbx,%rsi
mov    (%rsp),%rbx
movslq %ebx,%rdi
mov    0x10(%rsp),%r12
add    %r12,%rdi
mov    %ebp,%edx
call   1060 <memcpy@plt>
add    %ebp,%ebx
mov    %rbx,(%rsp)
jmp    1431 <subsk+0x291>
mov    0x38(%rsp),%rax
lea    (%rax,%rbp,1),%rdx
xor    %eax,%eax
lea    0x20(%rsp),%rbx
cs nopw 0x0(%rax,%rax,1)
mov    %cl,0x20(%rsp,%rax,1)
movzbl (%rdx,%rax,1),%ecx
add    $0x1,%rax
cmp    $0x5d,%cl
jne    13c0 <subsk+0x220>
add    %rax,%rbp
mov    %eax,%eax
movb   $0x0,0x20(%rsp,%rax,1)
mov    %rbx,%rdi
xor    %eax,%eax
call   1090 <atoi@plt>
mov    %rbx,%rdi
lea    0xc11(%rip),%rsi
mov    %eax,%edx
xor    %eax,%eax
call   10b0 <sprintf@plt>
mov    %rbx,%rdi
call   1040 <strlen@plt>
mov    %rax,%r15
test   %r15d,%r15d
jle    1424 <subsk+0x284>
mov    %rbx,%rsi
mov    (%rsp),%rbx
movslq %ebx,%rdi
add    %r12,%rdi
mov    %r15d,%edx
call   1060 <memcpy@plt>
add    %r15d,%ebx
mov    %rbx,(%rsp)
add    $0x2,%ebp
jmp    1236 <subsk+0x96>
mov    0x10(%rsp),%r12
mov    0x8(%rsp),%rbp
add    %r14d,%r15d
add    $0x3,%r15d
mov    0x1c(%rsp),%r14d
cmp    %ebp,%r15d
jl     1247 <subsk+0xa7>
movslq (%rsp),%rax
movb   $0x0,(%r12,%rax,1)
add    $0x48,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
movslq (%rsp),%rax
mov    0x10(%rsp),%rcx
movb   $0x0,(%rcx,%rax,1)
lea    0xba8(%rip),%rdi
mov    %r13,%rsi
xor    %eax,%eax
call   1080 <plintf@plt>
xor    %edi,%edi
call   10c0 <exit@plt>
lea    0xb74(%rip),%rdi
mov    %r13,%rsi
xor    %eax,%eax
call   1050 <printf@plt>
xor    %edi,%edi
call   10c0 <exit@plt>

LLVM IR (-O0):
@.str = [3 x i8] c"%d\00"
@.str.1 = [28 x i8] c" Illegal use of [j] at %s \0A\00"
@.str.2 = [72 x i8] c"Error in %s The expression does not terminate. Perhaps a ] is missing.\0A\00"
define void @subsk(i8* %0, i8* %1, i32 %2, i32 %3) {
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
%17 = alloca i32
%18 = alloca i32
%19 = alloca i8
%20 = alloca i8
%21 = alloca [20 x i8]
store i8* %0, i8** %5
store i8* %1, i8** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
%22 = load i8*, i8** %5
%23 = call i64 @strlen(i8* %22)
%24 = trunc i64 %23 to i32
store i32 %24, i32* %10
store i32 0, i32* %18
store i32 0, i32* %11
store i32 0, i32* %9
%25 = load i8*, i8** %5
%26 = call i32 (i8*, ...) bitcast (i32 (...)* @is_comment to i32 (i8*, ...)*)(i8* %25)
%27 = icmp ne i32 %26, 0
br i1 %27, label %28, label %32
28: ; preds = %4
%29 = load i8*, i8** %6
%30 = load i8*, i8** %5
%31 = call i8* @strcpy(i8* %29, i8* %30)
br label %243
32: ; preds = %4
br label %33
33: ; preds = %32, %237
%34 = load i8*, i8** %5
%35 = load i32, i32* %9
%36 = sext i32 %35 to i64
%37 = getelementptr inbounds i8, i8* %34, i64 %36
%38 = load i8, i8* %37
store i8 %38, i8* %19
%39 = load i8*, i8** %5
%40 = load i32, i32* %9
%41 = add nsw i32 %40, 1
%42 = sext i32 %41 to i64
%43 = getelementptr inbounds i8, i8* %39, i64 %42
%44 = load i8, i8* %43
store i8 %44, i8* %20
%45 = load i8, i8* %19
%46 = sext i8 %45 to i32
%47 = icmp eq i32 %46, 91
br i1 %47, label %48, label %116
48: ; preds = %33
%49 = load i8, i8* %20
%50 = sext i8 %49 to i32
%51 = icmp ne i32 %50, 106
br i1 %51, label %52, label %116
52: ; preds = %48
%53 = load i8*, i8** %5
%54 = load i32, i32* %9
%55 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @not_ker to i32 (i8*, i32, ...)*)(i8* %53, i32 %54)
%56 = icmp ne i32 %55, 0
br i1 %56, label %57, label %116
57: ; preds = %52
store i32 1, i32* %17
store i32 0, i32* %12
store i32 0, i32* %13
store i32 1, i32* %16
%58 = load i32, i32* %9
%59 = add nsw i32 %58, 1
store i32 %59, i32* %9
br label %60
60: ; preds = %114, %57
%61 = load i32, i32* %17
%62 = icmp ne i32 %61, 0
br i1 %62, label %63, label %115
63: ; preds = %60
%64 = load i8*, i8** %5
%65 = load i32, i32* %9
%66 = sext i32 %65 to i64
%67 = getelementptr inbounds i8, i8* %64, i64 %66
%68 = load i8, i8* %67
store i8 %68, i8* %19
%69 = load i8, i8* %19
%70 = sext i8 %69 to i32
%71 = icmp eq i32 %70, 93
br i1 %71, label %72, label %105
72: ; preds = %63
%73 = load i32, i32* %9
%74 = add nsw i32 %73, 1
store i32 %74, i32* %9
%75 = load i32, i32* %13
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 %76
store i8 0, i8* %77
%78 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 0
%79 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %78)
store i32 %79, i32* %12
%80 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 0
%81 = load i32, i32* %12
%82 = call i32 (i8*, i8*, ...) @sprintf(i8* %80, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32 %81)
%83 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 0
%84 = call i64 @strlen(i8* %83)
%85 = trunc i64 %84 to i32
store i32 %85, i32* %15
store i32 0, i32* %14
br label %86
86: ; preds = %101, %72
%87 = load i32, i32* %14
%88 = load i32, i32* %15
%89 = icmp slt i32 %87, %88
br i1 %89, label %90, label %104
90: ; preds = %86
%91 = load i32, i32* %14
%92 = sext i32 %91 to i64
%93 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 %92
%94 = load i8, i8* %93
%95 = load i8*, i8** %6
%96 = load i32, i32* %11
%97 = sext i32 %96 to i64
%98 = getelementptr inbounds i8, i8* %95, i64 %97
store i8 %94, i8* %98
%99 = load i32, i32* %11
%100 = add nsw i32 %99, 1
store i32 %100, i32* %11
br label %101
101: ; preds = %90
%102 = load i32, i32* %14
%103 = add nsw i32 %102, 1
store i32 %103, i32* %14
br label %86
104: ; preds = %86
store i32 0, i32* %17
br label %114
105: ; preds = %63
%106 = load i32, i32* %9
%107 = add nsw i32 %106, 1
store i32 %107, i32* %9
%108 = load i8, i8* %19
%109 = load i32, i32* %13
%110 = sext i32 %109 to i64
%111 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 %110
store i8 %108, i8* %111
%112 = load i32, i32* %13
%113 = add nsw i32 %112, 1
store i32 %113, i32* %13
br label %114
114: ; preds = %105, %104
br label %60
115: ; preds = %60
br label %232
116: ; preds = %52, %48, %33
%117 = load i8, i8* %19
%118 = sext i8 %117 to i32
%119 = icmp eq i32 %118, 91
br i1 %119, label %120, label %221
120: ; preds = %116
%121 = load i8, i8* %20
%122 = sext i8 %121 to i32
%123 = icmp eq i32 %122, 106
br i1 %123, label %124, label %221
124: ; preds = %120
%125 = load i32, i32* %8
%126 = icmp eq i32 %125, 0
br i1 %126, label %127, label %130
127: ; preds = %124
%128 = load i8*, i8** %5
%129 = call i32 (i8*, ...) @printf(i8* getelementptr inbounds ([28 x i8], [28 x i8]* @.str.1, i64 0, i64 0), i8* %128)
unreachable
130: ; preds = %124
store i32 0, i32* %12
store i32 0, i32* %13
store i32 1, i32* %16
%131 = load i32, i32* %9
%132 = add nsw i32 %131, 2
store i32 %132, i32* %9
store i32 1, i32* %17
br label %133
133: ; preds = %219, %130
%134 = load i32, i32* %17
%135 = icmp ne i32 %134, 0
br i1 %135, label %136, label %220
136: ; preds = %133
%137 = load i32, i32* %9
%138 = load i32, i32* %10
%139 = icmp sge i32 %137, %138
br i1 %139, label %140, label %147
140: ; preds = %136
%141 = load i8*, i8** %6
%142 = load i32, i32* %11
%143 = sext i32 %142 to i64
%144 = getelementptr inbounds i8, i8* %141, i64 %143
store i8 0, i8* %144
%145 = load i8*, i8** %5
%146 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @plintf to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([72 x i8], [72 x i8]* @.str.2, i64 0, i64 0), i8* %145)
unreachable
147: ; preds = %136
%148 = load i8*, i8** %5
%149 = load i32, i32* %9
%150 = sext i32 %149 to i64
%151 = getelementptr inbounds i8, i8* %148, i64 %150
%152 = load i8, i8* %151
store i8 %152, i8* %19
%153 = load i8, i8* %19
%154 = sext i8 %153 to i32
switch i32 %154, label %210 [
i32 43, label %155
i32 45, label %158
i32 42, label %161
i32 93, label %164
]
155: ; preds = %147
store i32 1, i32* %16
%156 = load i32, i32* %9
%157 = add nsw i32 %156, 1
store i32 %157, i32* %9
br label %219
158: ; preds = %147
store i32 -1, i32* %16
%159 = load i32, i32* %9
%160 = add nsw i32 %159, 1
store i32 %160, i32* %9
br label %219
161: ; preds = %147
%162 = load i32, i32* %9
%163 = add nsw i32 %162, 1
store i32 %163, i32* %9
store i32 1, i32* %16
store i32 1, i32* %18
br label %219
164: ; preds = %147
%165 = load i32, i32* %9
%166 = add nsw i32 %165, 1
store i32 %166, i32* %9
%167 = load i32, i32* %13
%168 = sext i32 %167 to i64
%169 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 %168
store i8 0, i8* %169
%170 = load i32, i32* %18
%171 = icmp eq i32 %170, 0
br i1 %171, label %172, label %179
172: ; preds = %164
%173 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 0
%174 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %173)
%175 = load i32, i32* %16
%176 = mul nsw i32 %174, %175
%177 = load i32, i32* %7
%178 = add nsw i32 %176, %177
store i32 %178, i32* %12
br label %184
179: ; preds = %164
%180 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 0
%181 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %180)
%182 = load i32, i32* %7
%183 = mul nsw i32 %181, %182
store i32 %183, i32* %12
store i32 0, i32* %18
br label %184
184: ; preds = %179, %172
%185 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 0
%186 = load i32, i32* %12
%187 = call i32 (i8*, i8*, ...) @sprintf(i8* %185, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32 %186)
%188 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 0
%189 = call i64 @strlen(i8* %188)
%190 = trunc i64 %189 to i32
store i32 %190, i32* %15
store i32 0, i32* %14
br label %191
191: ; preds = %206, %184
%192 = load i32, i32* %14
%193 = load i32, i32* %15
%194 = icmp slt i32 %192, %193
br i1 %194, label %195, label %209
195: ; preds = %191
%196 = load i32, i32* %14
%197 = sext i32 %196 to i64
%198 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 %197
%199 = load i8, i8* %198
%200 = load i8*, i8** %6
%201 = load i32, i32* %11
%202 = sext i32 %201 to i64
%203 = getelementptr inbounds i8, i8* %200, i64 %202
store i8 %199, i8* %203
%204 = load i32, i32* %11
%205 = add nsw i32 %204, 1
store i32 %205, i32* %11
br label %206
206: ; preds = %195
%207 = load i32, i32* %14
%208 = add nsw i32 %207, 1
store i32 %208, i32* %14
br label %191
209: ; preds = %191
store i32 0, i32* %17
br label %219
210: ; preds = %147
%211 = load i32, i32* %9
%212 = add nsw i32 %211, 1
store i32 %212, i32* %9
%213 = load i8, i8* %19
%214 = load i32, i32* %13
%215 = sext i32 %214 to i64
%216 = getelementptr inbounds [20 x i8], [20 x i8]* %21, i64 0, i64 %215
store i8 %213, i8* %216
%217 = load i32, i32* %13
%218 = add nsw i32 %217, 1
store i32 %218, i32* %13
br label %219
219: ; preds = %210, %209, %161, %158, %155
br label %133
220: ; preds = %133
br label %231
221: ; preds = %120, %116
%222 = load i8, i8* %19
%223 = load i8*, i8** %6
%224 = load i32, i32* %11
%225 = sext i32 %224 to i64
%226 = getelementptr inbounds i8, i8* %223, i64 %225
store i8 %222, i8* %226
%227 = load i32, i32* %9
%228 = add nsw i32 %227, 1
store i32 %228, i32* %9
%229 = load i32, i32* %11
%230 = add nsw i32 %229, 1
store i32 %230, i32* %11
br label %231
231: ; preds = %221, %220
br label %232
232: ; preds = %231, %115
%233 = load i32, i32* %9
%234 = load i32, i32* %10
%235 = icmp sge i32 %233, %234
br i1 %235, label %236, label %237
236: ; preds = %232
br label %238
237: ; preds = %232
br label %33
238: ; preds = %236
%239 = load i8*, i8** %6
%240 = load i32, i32* %11
%241 = sext i32 %240 to i64
%242 = getelementptr inbounds i8, i8* %239, i64 %241
store i8 0, i8* %242
br label %243
243: ; preds = %238, %28
ret void
}

LLVM IR (-O2):
@.str = [3 x i8] c"%d\00"
@.str.1 = [28 x i8] c" Illegal use of [j] at %s \0A\00"
@.str.2 = [72 x i8] c"Error in %s The expression does not terminate. Perhaps a ] is missing.\0A\00"
define void @subsk(i8* %0, i8* %1, i32 %2, i32 %3) {
%5 = alloca [20 x i8]
%6 = getelementptr inbounds [20 x i8], [20 x i8]* %5, i64 0, i64 0
%7 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%8 = trunc i64 %7 to i32
%9 = tail call i32 (i8*, ...) bitcast (i32 (...)* @is_comment to i32 (i8*, ...)*)(i8* %0)
%10 = icmp eq i32 %9, 0
br i1 %10, label %11, label %15
11: ; preds = %4
%12 = icmp eq i32 %3, 0
%13 = shl i64 %7, 32
%14 = ashr exact i64 %13, 32
br label %17
15: ; preds = %4
%16 = tail call i8* @strcpy(i8* dereferenceable(1) %1, i8* dereferenceable(1) %0)
br label %134
17: ; preds = %11, %127
%18 = phi i32 [ %128, %127 ], [ 0, %11 ]
%19 = phi i32 [ %129, %127 ], [ 0, %11 ]
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds i8, i8* %0, i64 %20
%22 = load i8, i8* %21
%23 = add nsw i32 %19, 1
%24 = sext i32 %23 to i64
%25 = getelementptr inbounds i8, i8* %0, i64 %24
%26 = load i8, i8* %25
%27 = icmp eq i8 %22, 91
%28 = icmp ne i8 %26, 106
%29 = select i1 %27, i1 %28, i1 false
br i1 %29, label %30, label %63
30: ; preds = %17
%31 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @not_ker to i32 (i8*, i32, ...)*)(i8* %0, i32 %19)
%32 = icmp eq i32 %31, 0
br i1 %32, label %115, label %33
33: ; preds = %30
%34 = add nsw i64 %20, 1
%35 = getelementptr inbounds i8, i8* %0, i64 %34
%36 = load i8, i8* %35
%37 = icmp eq i8 %36, 93
br i1 %37, label %38, label %53
38: ; preds = %53, %33
%39 = phi i64 [ %20, %33 ], [ %56, %53 ]
%40 = phi i64 [ 0, %33 ], [ %58, %53 ]
%41 = and i64 %40, 4294967295
%42 = getelementptr inbounds [20 x i8], [20 x i8]* %5, i64 0, i64 %41
store i8 0, i8* %42
%43 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %6)
%44 = call i32 (i8*, i8*, ...) @sprintf(i8* %6, i8* dereferenceable(1) getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32 %43)
%45 = call i64 @strlen(i8* %6)
%46 = trunc i64 %45 to i32
%47 = icmp sgt i32 %46, 0
br i1 %47, label %48, label %119
48: ; preds = %38
%49 = sext i32 %18 to i64
%50 = getelementptr i8, i8* %1, i64 %49
%51 = and i64 %45, 4294967295
%52 = add i32 %18, %46
br label %119
53: ; preds = %33, %53
%54 = phi i64 [ %58, %53 ], [ 0, %33 ]
%55 = phi i8 [ %61, %53 ], [ %36, %33 ]
%56 = phi i64 [ %59, %53 ], [ %34, %33 ]
%57 = getelementptr inbounds [20 x i8], [20 x i8]* %5, i64 0, i64 %54
store i8 %55, i8* %57
%58 = add nuw i64 %54, 1
%59 = add i64 %56, 1
%60 = getelementptr inbounds i8, i8* %0, i64 %59
%61 = load i8, i8* %60
%62 = icmp eq i8 %61, 93
br i1 %62, label %38, label %53
63: ; preds = %17
%64 = icmp eq i8 %26, 106
%65 = select i1 %27, i1 %64, i1 false
br i1 %65, label %66, label %115
66: ; preds = %63
br i1 %12, label %67, label %69
67: ; preds = %66
%68 = call i32 (i8*, ...) @printf(i8* dereferenceable(1) getelementptr inbounds ([28 x i8], [28 x i8]* @.str.1, i64 0, i64 0), i8* %0)
unreachable
69: ; preds = %66
%70 = add i32 %19, 2
%71 = sext i32 %70 to i64
%72 = icmp sgt i64 %14, %71
br i1 %72, label %77, label %73
73: ; preds = %69, %109
%74 = sext i32 %18 to i64
%75 = getelementptr inbounds i8, i8* %1, i64 %74
store i8 0, i8* %75
%76 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @plintf to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([72 x i8], [72 x i8]* @.str.2, i64 0, i64 0), i8* %0)
unreachable
77: ; preds = %69, %109
%78 = phi i32 [ %110, %109 ], [ 0, %69 ]
%79 = phi i32 [ %111, %109 ], [ 1, %69 ]
%80 = phi i32 [ %112, %109 ], [ 0, %69 ]
%81 = phi i64 [ %113, %109 ], [ %71, %69 ]
%82 = getelementptr inbounds i8, i8* %0, i64 %81
%83 = load i8, i8* %82
%84 = sext i8 %83 to i32
switch i32 %84, label %105 [
i32 43, label %109
i32 45, label %85
i32 42, label %86
i32 93, label %87
]
85: ; preds = %77
br label %109
86: ; preds = %77
br label %109
87: ; preds = %77
%88 = sext i32 %78 to i64
%89 = getelementptr inbounds [20 x i8], [20 x i8]* %5, i64 0, i64 %88
store i8 0, i8* %89
%90 = icmp eq i32 %80, 0
%91 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %6)
%92 = mul nsw i32 %91, %79
%93 = add nsw i32 %92, %2
%94 = mul nsw i32 %91, %2
%95 = select i1 %90, i32 %93, i32 %94
%96 = call i32 (i8*, i8*, ...) @sprintf(i8* %6, i8* dereferenceable(1) getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), i32 %95)
%97 = call i64 @strlen(i8* %6)
%98 = trunc i64 %97 to i32
%99 = icmp sgt i32 %98, 0
br i1 %99, label %100, label %123
100: ; preds = %87
%101 = sext i32 %18 to i64
%102 = getelementptr i8, i8* %1, i64 %101
%103 = and i64 %97, 4294967295
%104 = add i32 %18, %98
br label %123
105: ; preds = %77
%106 = sext i32 %78 to i64
%107 = getelementptr inbounds [20 x i8], [20 x i8]* %5, i64 0, i64 %106
store i8 %83, i8* %107
%108 = add nsw i32 %78, 1
br label %109
109: ; preds = %77, %105, %86, %85
%110 = phi i32 [ %108, %105 ], [ %78, %86 ], [ %78, %85 ], [ %78, %77 ]
%111 = phi i32 [ %79, %105 ], [ 1, %86 ], [ -1, %85 ], [ 1, %77 ]
%112 = phi i32 [ %80, %105 ], [ 1, %86 ], [ %80, %85 ], [ %80, %77 ]
%113 = add nsw i64 %81, 1
%114 = icmp eq i64 %113, %14
br i1 %114, label %73, label %77
115: ; preds = %30, %63
%116 = sext i32 %18 to i64
%117 = getelementptr inbounds i8, i8* %1, i64 %116
store i8 %22, i8* %117
%118 = add nsw i32 %18, 1
br label %127
119: ; preds = %38, %48
%120 = phi i32 [ %52, %48 ], [ %18, %38 ]
%121 = trunc i64 %39 to i32
%122 = add i32 %121, 2
br label %127
123: ; preds = %87, %100
%124 = phi i32 [ %104, %100 ], [ %18, %87 ]
%125 = trunc i64 %81 to i32
%126 = add i32 %125, 1
br label %127
127: ; preds = %123, %119, %115
%128 = phi i32 [ %118, %115 ], [ %120, %119 ], [ %124, %123 ]
%129 = phi i32 [ %23, %115 ], [ %122, %119 ], [ %126, %123 ]
%130 = icmp slt i32 %129, %8
br i1 %130, label %17, label %131
131: ; preds = %127
%132 = sext i32 %128 to i64
%133 = getelementptr inbounds i8, i8* %1, i64 %132
store i8 0, i8* %133
br label %134
134: ; preds = %131, %15
ret void
}