backword(f, n) {
  if (n < 0)
    return (forwword(f, -n));
  if (backchar(0, 1) == 0)
    return (0);
  while (n--) {
    while (inword() == 0) {
      if (backchar(0, 1) == 0)
        return (0);
    }
    while (inword() != 0) {
      if (backchar(0, 1) == 0)
        return (0);
    }
  }
  return (forwchar(0, 1));
}


x86 assembly (clang, -O0):
<backword>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    %edi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
cmpl   $0x0,-0xc(%rbp)
jge    116f <backword+0x2f>
mov    -0x8(%rbp),%edi
xor    %esi,%esi
sub    -0xc(%rbp),%esi
mov    $0x0,%al
call   1060 <forwword@plt>
mov    %eax,-0x4(%rbp)
jmp    123b <backword+0xfb>
xor    %edi,%edi
mov    $0x1,%esi
mov    $0x0,%al
call   1030 <backchar@plt>
cmp    $0x0,%eax
jne    1192 <backword+0x52>
movl   $0x0,-0x4(%rbp)
jmp    123b <backword+0xfb>
jmp    1197 <backword+0x57>
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0xc(%rbp)
cmp    $0x0,%eax
je     122a <backword+0xea>
jmp    11b0 <backword+0x70>
mov    $0x0,%al
call   1050 <inword@plt>
cmp    $0x0,%eax
jne    11e8 <backword+0xa8>
xor    %edi,%edi
mov    $0x1,%esi
mov    $0x0,%al
call   1030 <backchar@plt>
cmp    $0x0,%eax
jne    11e3 <backword+0xa3>
movl   $0x0,-0x4(%rbp)
jmp    123b <backword+0xfb>
jmp    11b0 <backword+0x70>
jmp    11ed <backword+0xad>
mov    $0x0,%al
call   1050 <inword@plt>
cmp    $0x0,%eax
je     1225 <backword+0xe5>
xor    %edi,%edi
mov    $0x1,%esi
mov    $0x0,%al
call   1030 <backchar@plt>
cmp    $0x0,%eax
jne    1220 <backword+0xe0>
movl   $0x0,-0x4(%rbp)
jmp    123b <backword+0xfb>
jmp    11ed <backword+0xad>
jmp    1197 <backword+0x57>
xor    %edi,%edi
mov    $0x1,%esi
mov    $0x0,%al
call   1040 <forwchar@plt>
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<backword>:
push   %rbx
mov    %esi,%ebx
test   %esi,%esi
js     11a1 <backword+0x61>
xor    %edi,%edi
mov    $0x1,%esi
xor    %eax,%eax
call   1030 <backchar@plt>
test   %eax,%eax
je     119d <backword+0x5d>
test   %ebx,%ebx
je     11ad <backword+0x6d>
add    $0xffffffff,%ebx
xor    %eax,%eax
call   1050 <inword@plt>
test   %eax,%eax
jne    1180 <backword+0x40>
xor    %edi,%edi
mov    $0x1,%esi
xor    %eax,%eax
call   1030 <backchar@plt>
test   %eax,%eax
jne    1160 <backword+0x20>
jmp    119d <backword+0x5d>
nop
xor    %eax,%eax
call   1050 <inword@plt>
test   %eax,%eax
je     1159 <backword+0x19>
xor    %edi,%edi
mov    $0x1,%esi
xor    %eax,%eax
call   1030 <backchar@plt>
test   %eax,%eax
jne    1180 <backword+0x40>
xor    %eax,%eax
pop    %rbx
ret
neg    %ebx
mov    %ebx,%esi
xor    %eax,%eax
pop    %rbx
jmp    1060 <forwword@plt>
xor    %edi,%edi
mov    $0x1,%esi
xor    %eax,%eax
pop    %rbx
jmp    1040 <forwchar@plt>

LLVM IR (-O0):
define i32 @backword(i32 %0, i32 %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
store i32 %0, i32* %4
store i32 %1, i32* %5
%6 = load i32, i32* %5
%7 = icmp slt i32 %6, 0
br i1 %7, label %8, label %13
8: ; preds = %2
%9 = load i32, i32* %4
%10 = load i32, i32* %5
%11 = sub nsw i32 0, %10
%12 = call i32 (i32, i32, ...) bitcast (i32 (...)* @forwword to i32 (i32, i32, ...)*)(i32 %9, i32 %11)
store i32 %12, i32* %3
br label %43
13: ; preds = %2
%14 = call i32 (i32, i32, ...) bitcast (i32 (...)* @backchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
%15 = icmp eq i32 %14, 0
br i1 %15, label %16, label %17
16: ; preds = %13
store i32 0, i32* %3
br label %43
17: ; preds = %13
br label %18
18: ; preds = %40, %17
%19 = load i32, i32* %5
%20 = add nsw i32 %19, -1
store i32 %20, i32* %5
%21 = icmp ne i32 %19, 0
br i1 %21, label %22, label %41
22: ; preds = %18
br label %23
23: ; preds = %30, %22
%24 = call i32 (...) @inword()
%25 = icmp eq i32 %24, 0
br i1 %25, label %26, label %31
26: ; preds = %23
%27 = call i32 (i32, i32, ...) bitcast (i32 (...)* @backchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
%28 = icmp eq i32 %27, 0
br i1 %28, label %29, label %30
29: ; preds = %26
store i32 0, i32* %3
br label %43
30: ; preds = %26
br label %23
31: ; preds = %23
br label %32
32: ; preds = %39, %31
%33 = call i32 (...) @inword()
%34 = icmp ne i32 %33, 0
br i1 %34, label %35, label %40
35: ; preds = %32
%36 = call i32 (i32, i32, ...) bitcast (i32 (...)* @backchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
%37 = icmp eq i32 %36, 0
br i1 %37, label %38, label %39
38: ; preds = %35
store i32 0, i32* %3
br label %43
39: ; preds = %35
br label %32
40: ; preds = %32
br label %18
41: ; preds = %18
%42 = call i32 (i32, i32, ...) bitcast (i32 (...)* @forwchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
store i32 %42, i32* %3
br label %43
43: ; preds = %41, %38, %29, %16, %8
%44 = load i32, i32* %3
ret i32 %44
}

LLVM IR (-O2):
define i32 @backword(i32 %0, i32 %1) {
%3 = icmp slt i32 %1, 0
br i1 %3, label %4, label %7
4: ; preds = %2
%5 = sub nsw i32 0, %1
%6 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @forwword to i32 (i32, i32, ...)*)(i32 %0, i32 %5)
br label %31
7: ; preds = %2
%8 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @backchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
%9 = icmp eq i32 %8, 0
br i1 %9, label %31, label %10
10: ; preds = %7
%11 = icmp eq i32 %1, 0
br i1 %11, label %29, label %14
12: ; preds = %23
%13 = icmp eq i32 %16, 0
br i1 %13, label %29, label %14
14: ; preds = %10, %12
%15 = phi i32 [ %16, %12 ], [ %1, %10 ]
%16 = add nsw i32 %15, -1
br label %17
17: ; preds = %14, %20
%18 = tail call i32 (...) @inword()
%19 = icmp eq i32 %18, 0
br i1 %19, label %20, label %23
20: ; preds = %17
%21 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @backchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
%22 = icmp eq i32 %21, 0
br i1 %22, label %31, label %17
23: ; preds = %17, %26
%24 = tail call i32 (...) @inword()
%25 = icmp eq i32 %24, 0
br i1 %25, label %12, label %26
26: ; preds = %23
%27 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @backchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
%28 = icmp eq i32 %27, 0
br i1 %28, label %31, label %23
29: ; preds = %12, %10
%30 = tail call i32 (i32, i32, ...) bitcast (i32 (...)* @forwchar to i32 (i32, i32, ...)*)(i32 0, i32 1)
br label %31
31: ; preds = %20, %26, %7, %29, %4
%32 = phi i32 [ %6, %4 ], [ %30, %29 ], [ 0, %7 ], [ 0, %26 ], [ 0, %20 ]
ret i32 %32
}