user: Please show me the C implementation that matches the assembly code listed below:

```asm
<main>:
  endbr64
  push   %r15
  mov    $0x64,%esi
  mov    $0x1,%edi
  push   %r14
  push   %r13
  push   %r12
  mov    $0x1,%r12d
  push   %rbp
  push   %rbx
  movabs $0x8000000000000000,%rbx
  sub    $0x28,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x18(%rsp)
  xor    %eax,%eax
  call   <vector@plt>
  mov    %rax,%rbp
  jmp    L33
  cs nopw 0x0(%rax,%rax,1)
L3:
  cvttsd2si %xmm0,%rdi
L85:
  call   <exp@plt>
  subsd  D127(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0x0(%rbp,%r12,4)
  add    $0x1,%r12
  cmp    $0x65,%r12
  je     L63
L33:
  pxor   %xmm0,%xmm0
  cvtsi2sd %r12,%xmm0
  divsd  D148(%rip),%xmm0
  comisd D102(%rip),%xmm0
  jb     L3
  subsd  D102(%rip),%xmm0
  cvttsd2si %xmm0,%rdi
  xor    %rbx,%rdi
  jmp    L85
L63:
  lea    D5(%rip),%rdi
  mov    $0x1,%r14d
  lea    0x10(%rsp),%rbx
  call   <puts@plt>
  lea    D44(%rip),%rsi
  xor    %eax,%eax
  lea    D52(%rip),%rdi
  call   <printf@plt>
  lea    D12(%rip),%r9
  xor    %eax,%eax
  lea    D104(%rip),%r8
  lea    D58(%rip),%rcx
  lea    D109(%rip),%rdx
  lea    D46(%rip),%rsi
  lea    D138(%rip),%rdi
  call   <printf@plt>
  lea    D145(%rip),%r13
  lea    D191(%rip),%r12
  jmp    L71
  nopl   0x0(%rax)
L66:
  cmp    $0x64,%rdx
  je     L80
  pxor   %xmm1,%xmm1
  mov    %r13,%rcx
  mov    %r15,%rsi
  mov    %r12,%rdi
  mov    $0x2,%eax
  cvtss2sd 0x4(%rbp,%rdx,4),%xmm1
  call   <printf@plt>
L96:
  add    $0x1,%r14
  cmp    $0x14,%r14
  je     L94
L71:
  pxor   %xmm0,%xmm0
  mov    %rbx,%rdx
  lea    (%r14,%r14,4),%r15
  mov    $0x64,%esi
  cvtsi2sd %r14,%xmm0
  mulsd  D195(%rip),%xmm0
  mov    %rbp,%rdi
  mov    %r15,0x10(%rsp)
  subsd  D112(%rip),%xmm0
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,0xc(%rsp)
  call   <hunt@plt>
  mov    0x10(%rsp),%rdx
  movss  0xc(%rsp),%xmm0
  lea    -0x1(%rdx),%rax
  cvtss2sd %xmm0,%xmm0
  cmp    $0x62,%rax
  ja     L66
  pxor   %xmm2,%xmm2
  pxor   %xmm1,%xmm1
  mov    %r15,%rsi
  mov    $0x3,%eax
  add    $0x1,%r14
  lea    D60(%rip),%rdi
  cvtss2sd 0x4(%rbp,%rdx,4),%xmm2
  cvtss2sd 0x0(%rbp,%rdx,4),%xmm1
  call   <printf@plt>
  cmp    $0x14,%r14
  jne    L71
L94:
  mov    $0x64,%edx
  mov    $0x1,%esi
  mov    %rbp,%rdi
  call   <free_vector@plt>
  mov    0x18(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L69
  add    $0x28,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nop
L80:
  lea    D93(%rip),%rcx
  pxor   %xmm1,%xmm1
  mov    %r15,%rsi
  mov    $0x2,%eax
  lea    D68(%rip),%rdi
  cvtss2sd 0x190(%rbp),%xmm1
  call   <printf@plt>
  jmp    L96
L69:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: label: D127
type_guessed: f64
name: extract_symbolic_data
arguments: label: D148
type_guessed: f64
name: extract_symbolic_data
arguments: label: D102
type_guessed: byte[16]
name: extract_symbolic_data
arguments: label: D5
type_guessed: string
name: extract_symbolic_data
arguments: label: D44
type_guessed: string
name: extract_symbolic_data
arguments: label: D52
type_guessed: string
name: extract_symbolic_data
arguments: label: D12
type_guessed: string
name: extract_symbolic_data
arguments: label: D104
type_guessed: string
name: extract_symbolic_data
arguments: label: D58
type_guessed: string
name: extract_symbolic_data
arguments: label: D109
type_guessed: string
name: extract_symbolic_data
arguments: label: D46
type_guessed: string
name: extract_symbolic_data
arguments: label: D138
type_guessed: string
name: extract_symbolic_data
arguments: label: D145
type_guessed: string
name: extract_symbolic_data
arguments: label: D191
type_guessed: string
name: extract_symbolic_data
arguments: label: D195
type_guessed: f64
name: extract_symbolic_data
arguments: label: D112
type_guessed: f64
name: extract_symbolic_data
arguments: label: D60
type_guessed: string
name: extract_symbolic_data
arguments: label: D93
type_guessed: string
name: extract_symbolic_data
arguments: label: D68
type_guessed: string

tool: D127: 74

tool: D148: 20

tool: {"D102": [0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x43,0x00,0x00,0x00,0x00,0x00,0x80,0x52,0x40]}

tool: D5: 
  result of:   j=0 indicates x too small

tool: D44:  

tool: D52: %14s j=100 indicates x too large

tool: D12: xx(j+1)

tool: D104: xx(j)

tool: D58: j

tool: D109: guess

tool: D46: locate:

tool: D138: 
%12s %8s %4s %11s %13s 


tool: D145:    lower lim

tool: D191: %12.5f %6lu %6lu %s %12.6f 


tool: D195: 10

tool: D112: 100

tool: D60: %12.5f %6lu %6lu %12.6f %12.6f 


tool: D93:    upper lim

tool: D68: %12.5f %6lu %6lu %12.6f %s 


assistant: ```c
int main(void) {
  unsigned long i, j, ji;
  float x, *xx;
  xx = vector(1, 100);
  for (i = 1; i <= 100; i++)
    xx[i] = exp(i / 20.0) - 74.0;
  printf("\n  result of:   j=0 indicates x too small\n");
  printf("%14s j=100 indicates x too large", " ");
  printf("\n%12s %8s %4s %11s %13s \n", "locate:", "guess", "j", "xx(j)", "xx(j+1)");
  for (i = 1; i <= 19; i++) {
    x = -100.0 + 10.0 * i;
    j = (ji = 5 * i);
    hunt(xx, 100, x, &j);
    if ((j < 100) && (j > 0))
      printf("%12.5f %6lu %6lu %12.6f %12.6f \n", x, ji, j, xx[j], xx[j + 1]);
    else if (j == 100)
      printf("%12.5f %6lu %6lu %12.6f %s \n", x, ji, j, xx[j], "   upper lim");
    else
      printf("%12.5f %6lu %6lu %s %12.6f \n", x, ji, j, "   lower lim", xx[j + 1]);
  }
  free_vector(xx, 1, 100);
  return 0;
}
```