natural(ap) char *ap;
{
  register char *p;
  p = ap;
  if (*p == '*' || *p == '(' || *p == '-' && *(p + 1) == '(')
    return (0);
  while (*p++)
    ;
  p--;
  if (*--p == '+' || *p == ')' && *--p != '5')
    return (0);
  return (1);
}


x86 assembly (clang, -O0):
<natural>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2a,%eax
je     1151 <natural+0x51>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x28,%eax
je     1151 <natural+0x51>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    115d <natural+0x5d>
mov    -0x18(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x28,%eax
jne    115d <natural+0x5d>
movl   $0x0,-0x4(%rbp)
jmp    11e6 <natural+0xe6>
jmp    1162 <natural+0x62>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
cmpb   $0x0,(%rax)
je     117f <natural+0x7f>
jmp    1162 <natural+0x62>
mov    -0x18(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x18(%rbp)
movsbl -0x1(%rax),%eax
cmp    $0x2b,%eax
je     11d3 <natural+0xd3>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x29,%eax
jne    11df <natural+0xdf>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x18(%rbp)
movsbl -0x1(%rax),%eax
cmp    $0x35,%eax
je     11df <natural+0xdf>
movl   $0x0,-0x4(%rbp)
jmp    11e6 <natural+0xe6>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<natural>:
mov    (%rdi),%cl
xor    %eax,%eax
cmp    $0x29,%cl
jg     1113 <natural+0x13>
test   %cl,%cl
je     113f <natural+0x3f>
cmp    $0x28,%cl
jne    1130 <natural+0x30>
ret
cmp    $0x2a,%cl
je     1112 <natural+0x12>
cmp    $0x2d,%cl
jne    1130 <natural+0x30>
cmpb   $0x28,0x1(%rdi)
je     1112 <natural+0x12>
test   %cl,%cl
je     113f <natural+0x3f>
nopw   0x0(%rax,%rax,1)
lea    0x1(%rdi),%rcx
cmpb   $0x0,0x1(%rdi)
mov    %rcx,%rdi
jne    1130 <natural+0x30>
jmp    1142 <natural+0x42>
mov    %rdi,%rcx
mov    -0x1(%rcx),%dl
cmp    $0x2b,%dl
je     1112 <natural+0x12>
cmp    $0x29,%dl
jne    1155 <natural+0x55>
cmpb   $0x35,-0x2(%rcx)
jne    1112 <natural+0x12>
mov    $0x1,%eax
ret

LLVM IR (-O0):
define i32 @natural(i8* %0) {
%2 = alloca i32
%3 = alloca i8*
%4 = alloca i8*
store i8* %0, i8** %3
%5 = load i8*, i8** %3
store i8* %5, i8** %4
%6 = load i8*, i8** %4
%7 = load i8, i8* %6
%8 = sext i8 %7 to i32
%9 = icmp eq i32 %8, 42
br i1 %9, label %26, label %10
10: ; preds = %1
%11 = load i8*, i8** %4
%12 = load i8, i8* %11
%13 = sext i8 %12 to i32
%14 = icmp eq i32 %13, 40
br i1 %14, label %26, label %15
15: ; preds = %10
%16 = load i8*, i8** %4
%17 = load i8, i8* %16
%18 = sext i8 %17 to i32
%19 = icmp eq i32 %18, 45
br i1 %19, label %20, label %27
20: ; preds = %15
%21 = load i8*, i8** %4
%22 = getelementptr inbounds i8, i8* %21, i64 1
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = icmp eq i32 %24, 40
br i1 %25, label %26, label %27
26: ; preds = %20, %10, %1
store i32 0, i32* %2
br label %55
27: ; preds = %20, %15
br label %28
28: ; preds = %33, %27
%29 = load i8*, i8** %4
%30 = getelementptr inbounds i8, i8* %29, i32 1
store i8* %30, i8** %4
%31 = load i8, i8* %29
%32 = icmp ne i8 %31, 0
br i1 %32, label %33, label %34
33: ; preds = %28
br label %28
34: ; preds = %28
%35 = load i8*, i8** %4
%36 = getelementptr inbounds i8, i8* %35, i32 -1
store i8* %36, i8** %4
%37 = load i8*, i8** %4
%38 = getelementptr inbounds i8, i8* %37, i32 -1
store i8* %38, i8** %4
%39 = load i8, i8* %38
%40 = sext i8 %39 to i32
%41 = icmp eq i32 %40, 43
br i1 %41, label %53, label %42
42: ; preds = %34
%43 = load i8*, i8** %4
%44 = load i8, i8* %43
%45 = sext i8 %44 to i32
%46 = icmp eq i32 %45, 41
br i1 %46, label %47, label %54
47: ; preds = %42
%48 = load i8*, i8** %4
%49 = getelementptr inbounds i8, i8* %48, i32 -1
store i8* %49, i8** %4
%50 = load i8, i8* %49
%51 = sext i8 %50 to i32
%52 = icmp ne i32 %51, 53
br i1 %52, label %53, label %54
53: ; preds = %47, %34
store i32 0, i32* %2
br label %55
54: ; preds = %47, %42
store i32 1, i32* %2
br label %55
55: ; preds = %54, %53, %26
%56 = load i32, i32* %2
ret i32 %56
}

LLVM IR (-O2):
define i32 @natural(i8* nocapture %0) {
%2 = load i8, i8* %0
switch i8 %2, label %9 [
i8 42, label %24
i8 40, label %24
i8 45, label %3
i8 0, label %15
]
3: ; preds = %1
%4 = getelementptr inbounds i8, i8* %0, i64 1
%5 = load i8, i8* %4
%6 = icmp eq i8 %5, 40
br i1 %6, label %24, label %7
7: ; preds = %3
%8 = icmp eq i8 %2, 0
br i1 %8, label %15, label %9
9: ; preds = %1, %7
br label %10
10: ; preds = %9, %10
%11 = phi i8* [ %12, %10 ], [ %0, %9 ]
%12 = getelementptr inbounds i8, i8* %11, i64 1
%13 = load i8, i8* %12
%14 = icmp eq i8 %13, 0
br i1 %14, label %15, label %10
15: ; preds = %10, %1, %7
%16 = phi i8* [ %0, %7 ], [ %0, %1 ], [ %12, %10 ]
%17 = getelementptr inbounds i8, i8* %16, i64 -1
%18 = load i8, i8* %17
switch i8 %18, label %23 [
i8 43, label %24
i8 41, label %19
]
19: ; preds = %15
%20 = getelementptr inbounds i8, i8* %16, i64 -2
%21 = load i8, i8* %20
%22 = icmp eq i8 %21, 53
br i1 %22, label %23, label %24
23: ; preds = %15, %19
br label %24
24: ; preds = %1, %1, %19, %15, %3, %23
%25 = phi i32 [ 1, %23 ], [ 0, %1 ], [ 0, %1 ], [ 0, %3 ], [ 0, %15 ], [ 0, %19 ]
ret i32 %25
}