char *strbalp(const char *p) {
  char b, e;
  char *ol = "({[<";
  char *cl = ")}]>";
  int i, n;
  b = *p;
  for (i = 0; ol[i] != 0; i++) {
    if (ol[i] == b)
      break;
  }
  if (ol[i] == 0)
    return (0);
  e = cl[i];
  n = 0;
  for (; *p; p++) {
    if (*p == b)
      n++;
    else if (*p == e) {
      n--;
      if (n == 0)
        return ((char *)p);
    }
  }
  return (0);
}


x86 assembly (clang, -O0):
<strbalp>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
lea    0xef1(%rip),%rax
mov    %rax,-0x20(%rbp)
lea    0xeeb(%rip),%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x11(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
je     1173 <strbalp+0x73>
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
movsbl -0x11(%rbp),%ecx
cmp    %ecx,%eax
jne    1160 <strbalp+0x60>
jmp    1173 <strbalp+0x73>
jmp    1165 <strbalp+0x65>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    112e <strbalp+0x2e>
mov    -0x20(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x0,%eax
jne    1195 <strbalp+0x95>
movq   $0x0,-0x8(%rbp)
jmp    1233 <strbalp+0x133>
mov    -0x28(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x12(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     122b <strbalp+0x12b>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x11(%rbp),%ecx
cmp    %ecx,%eax
jne    11d8 <strbalp+0xd8>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
jmp    1215 <strbalp+0x115>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x12(%rbp),%ecx
cmp    %ecx,%eax
jne    1210 <strbalp+0x110>
mov    -0x30(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x30(%rbp)
jne    120b <strbalp+0x10b>
mov    -0x10(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1233 <strbalp+0x133>
jmp    1210 <strbalp+0x110>
jmp    1215 <strbalp+0x115>
jmp    121a <strbalp+0x11a>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11aa <strbalp+0xaa>
movq   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<strbalp>:
mov    (%rdi),%dl
xor    %eax,%eax
cmp    $0x5a,%dl
jg     111a <strbalp+0x1a>
cmp    $0x28,%dl
je     1130 <strbalp+0x30>
cmp    $0x3c,%dl
jne    1170 <strbalp+0x70>
mov    $0x3,%eax
jmp    1130 <strbalp+0x30>
cmp    $0x5b,%dl
je     112b <strbalp+0x2b>
cmp    $0x7b,%dl
jne    1170 <strbalp+0x70>
mov    $0x1,%eax
jmp    1130 <strbalp+0x30>
mov    $0x2,%eax
lea    0xec9(%rip),%rcx
mov    (%rax,%rcx,1),%r8b
xor    %eax,%eax
mov    %edx,%ecx
xor    %esi,%esi
jmp    115f <strbalp+0x5f>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%esi
movzbl 0x1(%rdi),%ecx
add    $0x1,%rdi
test   %cl,%cl
je     1170 <strbalp+0x70>
cmp    %dl,%cl
je     1150 <strbalp+0x50>
cmp    %r8b,%cl
jne    1153 <strbalp+0x53>
add    $0xffffffff,%esi
jne    1153 <strbalp+0x53>
mov    %rdi,%rax
ret

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

LLVM IR (-O2):
@.str.1 = [5 x i8] c")}]>\00"
define i8* @strbalp(i8* %0) {
%2 = load i8, i8* %0
switch i8 %2, label %27 [
i8 40, label %6
i8 123, label %3
i8 91, label %4
i8 60, label %5
]
3: ; preds = %1
br label %6
4: ; preds = %1
br label %6
5: ; preds = %1
br label %6
6: ; preds = %1, %5, %4, %3
%7 = phi i64 [ 0, %1 ], [ 1, %3 ], [ 2, %4 ], [ 3, %5 ]
%8 = getelementptr inbounds [5 x i8], [5 x i8]* @.str.1, i64 0, i64 %7
%9 = load i8, i8* %8
br label %10
10: ; preds = %6, %22
%11 = phi i8 [ %25, %22 ], [ %2, %6 ]
%12 = phi i32 [ %23, %22 ], [ 0, %6 ]
%13 = phi i8* [ %24, %22 ], [ %0, %6 ]
%14 = icmp eq i8 %11, %2
br i1 %14, label %15, label %17
15: ; preds = %10
%16 = add nsw i32 %12, 1
br label %22
17: ; preds = %10
%18 = icmp eq i8 %11, %9
br i1 %18, label %19, label %22
19: ; preds = %17
%20 = add nsw i32 %12, -1
%21 = icmp eq i32 %20, 0
br i1 %21, label %27, label %22
22: ; preds = %15, %19, %17
%23 = phi i32 [ %16, %15 ], [ %20, %19 ], [ %12, %17 ]
%24 = getelementptr inbounds i8, i8* %13, i64 1
%25 = load i8, i8* %24
%26 = icmp eq i8 %25, 0
br i1 %26, label %27, label %10
27: ; preds = %19, %22, %1
%28 = phi i8* [ null, %1 ], [ %13, %19 ], [ null, %22 ]
ret i8* %28
}