int wycc_type_word(const char *nam, int lo, int hi) {
  int at = lo;
  char chr;
  while (at < hi) {
    chr = nam[at];
    if ((chr < 'A') || (chr > 'z')) {
      return at;
    };
    if ((chr > 'Z') && (chr < 'a')) {
      return at;
    };
    at++;
  }
  return at;
}


x86 assembly (clang, -O0):
<wycc_type_word>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    -0x14(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x18(%rbp),%eax
jge    1186 <wycc_type_word+0x86>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x1d(%rbp)
movsbl -0x1d(%rbp),%eax
cmp    $0x41,%eax
jl     1148 <wycc_type_word+0x48>
movsbl -0x1d(%rbp),%eax
cmp    $0x7a,%eax
jle    1153 <wycc_type_word+0x53>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    118c <wycc_type_word+0x8c>
movsbl -0x1d(%rbp),%eax
cmp    $0x5a,%eax
jle    1178 <wycc_type_word+0x78>
movsbl -0x1d(%rbp),%eax
cmp    $0x61,%eax
jge    1178 <wycc_type_word+0x78>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    118c <wycc_type_word+0x8c>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1114 <wycc_type_word+0x14>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<wycc_type_word>:
mov    %esi,%eax
cmp    %edx,%esi
jge    1131 <wycc_type_word+0x31>
movslq %eax,%rcx
add    %rcx,%rdi
nopl   0x0(%rax)
movzbl (%rdi),%ecx
lea    -0x7b(%rcx),%esi
cmp    $0xc6,%sil
jb     1131 <wycc_type_word+0x31>
add    $0xa5,%cl
cmp    $0x6,%cl
jb     1131 <wycc_type_word+0x31>
add    $0x1,%eax
add    $0x1,%rdi
cmp    %eax,%edx
jne    1110 <wycc_type_word+0x10>
mov    %edx,%eax
ret

LLVM IR (-O0):
define i32 @wycc_type_word(i8* %0, i32 %1, i32 %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i8
store i8* %0, i8** %5
store i32 %1, i32* %6
store i32 %2, i32* %7
%10 = load i32, i32* %6
store i32 %10, i32* %8
br label %11
11: ; preds = %40, %3
%12 = load i32, i32* %8
%13 = load i32, i32* %7
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %43
15: ; preds = %11
%16 = load i8*, i8** %5
%17 = load i32, i32* %8
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds i8, i8* %16, i64 %18
%20 = load i8, i8* %19
store i8 %20, i8* %9
%21 = load i8, i8* %9
%22 = sext i8 %21 to i32
%23 = icmp slt i32 %22, 65
br i1 %23, label %28, label %24
24: ; preds = %15
%25 = load i8, i8* %9
%26 = sext i8 %25 to i32
%27 = icmp sgt i32 %26, 122
br i1 %27, label %28, label %30
28: ; preds = %24, %15
%29 = load i32, i32* %8
store i32 %29, i32* %4
br label %45
30: ; preds = %24
%31 = load i8, i8* %9
%32 = sext i8 %31 to i32
%33 = icmp sgt i32 %32, 90
br i1 %33, label %34, label %40
34: ; preds = %30
%35 = load i8, i8* %9
%36 = sext i8 %35 to i32
%37 = icmp slt i32 %36, 97
br i1 %37, label %38, label %40
38: ; preds = %34
%39 = load i32, i32* %8
store i32 %39, i32* %4
br label %45
40: ; preds = %34, %30
%41 = load i32, i32* %8
%42 = add nsw i32 %41, 1
store i32 %42, i32* %8
br label %11
43: ; preds = %11
%44 = load i32, i32* %8
store i32 %44, i32* %4
br label %45
45: ; preds = %43, %38, %28
%46 = load i32, i32* %4
ret i32 %46
}

LLVM IR (-O2):
define i32 @wycc_type_word(i8* nocapture %0, i32 %1, i32 %2) {
%4 = icmp slt i32 %1, %2
br i1 %4, label %5, label %22
5: ; preds = %3
%6 = sext i32 %1 to i64
br label %7
7: ; preds = %5, %16
%8 = phi i64 [ %6, %5 ], [ %17, %16 ]
%9 = getelementptr inbounds i8, i8* %0, i64 %8
%10 = load i8, i8* %9
%11 = add i8 %10, -123
%12 = icmp ult i8 %11, -58
%13 = add i8 %10, -91
%14 = icmp ult i8 %13, 6
%15 = or i1 %12, %14
br i1 %15, label %20, label %16
16: ; preds = %7
%17 = add nsw i64 %8, 1
%18 = trunc i64 %17 to i32
%19 = icmp eq i32 %18, %2
br i1 %19, label %22, label %7
20: ; preds = %7
%21 = trunc i64 %8 to i32
br label %22
22: ; preds = %16, %20, %3
%23 = phi i32 [ %1, %3 ], [ %21, %20 ], [ %2, %16 ]
ret i32 %23
}