head(str1, str2) char *str1, *str2;
{
  while (*str1 != '\0' && *str2 != '\0') {
    if (*str1 != *str2)
      break;
    str1++;
    str2++;
  }
  if (*str1 == *str2)
    return (1);
  if (*str2 == '\0')
    if (any(*str1, " \t\n,+-];*"))
      return (1);
  return (0);
}


x86 assembly (clang, -O0):
<head>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x19(%rbp)
je     1145 <head+0x35>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
setne  %al
mov    %al,-0x19(%rbp)
mov    -0x19(%rbp),%al
test   $0x1,%al
jne    1155 <head+0x45>
jmp    118d <head+0x7d>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
mov    -0x18(%rbp),%rcx
movsbl (%rcx),%ecx
cmp    %ecx,%eax
je     1170 <head+0x60>
jmp    118d <head+0x7d>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1120 <head+0x10>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
mov    -0x18(%rbp),%rcx
movsbl (%rcx),%ecx
cmp    %ecx,%eax
jne    11af <head+0x9f>
movl   $0x1,-0x4(%rbp)
jmp    11f5 <head+0xe5>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    11ee <head+0xde>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
lea    0xe33(%rip),%rsi
mov    $0x0,%al
call   1030 <any@plt>
cmp    $0x0,%eax
je     11e9 <head+0xd9>
movl   $0x1,-0x4(%rbp)
jmp    11f5 <head+0xe5>
jmp    11ee <head+0xde>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<head>:
push   %rbx
mov    (%rdi),%al
test   %al,%al
je     113a <head+0x2a>
add    $0x1,%rdi
nopl   0x0(%rax,%rax,1)
movzbl (%rsi),%ecx
test   %cl,%cl
je     113e <head+0x2e>
cmp    %cl,%al
jne    113e <head+0x2e>
add    $0x1,%rsi
movzbl (%rdi),%eax
add    $0x1,%rdi
test   %al,%al
jne    1120 <head+0x10>
mov    (%rsi),%cl
xor    %eax,%eax
mov    $0x1,%ebx
cmp    %cl,%al
je     1162 <head+0x52>
test   %cl,%cl
jne    1160 <head+0x50>
movsbl %al,%edi
lea    0xeab(%rip),%rsi
xor    %eax,%eax
call   1030 <any@plt>
test   %eax,%eax
jne    1162 <head+0x52>
xor    %ebx,%ebx
mov    %ebx,%eax
pop    %rbx
ret

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

LLVM IR (-O2):
@.str = [10 x i8] c" \09\0A,+-];*\00"
define i32 @head(i8* nocapture %0, i8* nocapture %1) {
%3 = load i8, i8* %0
%4 = icmp eq i8 %3, 0
br i1 %4, label %18, label %5
5: ; preds = %2, %13
%6 = phi i8 [ %16, %13 ], [ %3, %2 ]
%7 = phi i8* [ %15, %13 ], [ %1, %2 ]
%8 = phi i8* [ %14, %13 ], [ %0, %2 ]
%9 = load i8, i8* %7
%10 = icmp ne i8 %9, 0
%11 = icmp eq i8 %6, %9
%12 = select i1 %10, i1 %11, i1 false
br i1 %12, label %13, label %21
13: ; preds = %5
%14 = getelementptr inbounds i8, i8* %8, i64 1
%15 = getelementptr inbounds i8, i8* %7, i64 1
%16 = load i8, i8* %14
%17 = icmp eq i8 %16, 0
br i1 %17, label %18, label %5
18: ; preds = %13, %2
%19 = phi i8* [ %1, %2 ], [ %15, %13 ]
%20 = load i8, i8* %19
br label %21
21: ; preds = %5, %18
%22 = phi i8 [ 0, %18 ], [ %6, %5 ]
%23 = phi i8 [ %20, %18 ], [ %9, %5 ]
%24 = sext i8 %22 to i32
%25 = icmp eq i8 %22, %23
br i1 %25, label %32, label %26
26: ; preds = %21
%27 = icmp eq i8 %23, 0
br i1 %27, label %28, label %31
28: ; preds = %26
%29 = tail call i32 (i32, i8*, ...) bitcast (i32 (...)* @any to i32 (i32, i8*, ...)*)(i32 %24, i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str, i64 0, i64 0))
%30 = icmp eq i32 %29, 0
br i1 %30, label %31, label %32
31: ; preds = %28, %26
br label %32
32: ; preds = %28, %21, %31
%33 = phi i32 [ 0, %31 ], [ 1, %21 ], [ 1, %28 ]
ret i32 %33
}