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

```asm
<main>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x30,%rsp
  movl   $0x0,-0x28(%rbp)
  movl   $0x1,-0x24(%rbp)
  lea    D47(%rip),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  mov    %eax,-0x18(%rbp)
  mov    -0x18(%rbp),%eax
  mov    %eax,%edi
  call   <random_string@plt>
  mov    %rax,-0x10(%rbp)
  mov    $0x0,%edi
  call   <time@plt>
  mov    %eax,%edi
  call   <srand@plt>
  jmp    L10
L87:
  movl   $0x0,-0x20(%rbp)
  pxor   %xmm0,%xmm0
  movss  %xmm0,-0x1c(%rbp)
  mov    -0x18(%rbp),%edx
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x32,%edi
  call   <reproduce@plt>
  mov    %rax,-0x8(%rbp)
  mov    -0x24(%rbp),%eax
  mov    %eax,%esi
  lea    D70(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    D57(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  movl   $0x0,-0x2c(%rbp)
  jmp    L34
L73:
  mov    -0x2c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  lea    D47(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <compare@plt>
  cvtsd2ss %xmm0,%xmm0
  movss  %xmm0,-0x14(%rbp)
  mov    -0x2c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    %rax,%rsi
  lea    D46(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  movss  -0x14(%rbp),%xmm0
  comiss -0x1c(%rbp),%xmm0
  jbe    L89
  movss  -0x14(%rbp),%xmm0
  movss  %xmm0,-0x1c(%rbp)
  mov    -0x2c(%rbp),%eax
  mov    %eax,-0x20(%rbp)
L89:
  addl   $0x1,-0x2c(%rbp)
L34:
  cmpl   $0x31,-0x2c(%rbp)
  jle    L73
  mov    -0x18(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    -0x20(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rcx
  mov    -0x8(%rbp),%rax
  add    %rcx,%rax
  mov    (%rax),%rcx
  mov    -0x10(%rbp),%rax
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <strncpy@plt>
  mov    -0x10(%rbp),%rax
  mov    %rax,%rsi
  lea    D88(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  movl   $0x0,-0x2c(%rbp)
  jmp    L42
L71:
  mov    -0x2c(%rbp),%eax
  cltq
  lea    0x0(,%rax,8),%rdx
  mov    -0x8(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    %rax,%rdi
  call   <free@plt>
  addl   $0x1,-0x2c(%rbp)
L42:
  cmpl   $0x31,-0x2c(%rbp)
  jle    L71
  mov    -0x10(%rbp),%rax
  lea    D47(%rip),%rdx
  mov    %rdx,%rsi
  mov    %rax,%rdi
  call   <compare@plt>
  movq   %xmm0,%rax
  movsd  D81(%rip),%xmm0
  movq   %rax,%xmm1
  ucomisd %xmm0,%xmm1
  jp     L61
  movsd  D81(%rip),%xmm0
  movq   %rax,%xmm2
  ucomisd %xmm0,%xmm2
  jne    L61
  movl   $0x1,-0x28(%rbp)
L61:
  addl   $0x1,-0x24(%rbp)
L10:
  cmpl   $0x0,-0x28(%rbp)
  je     L87
  mov    $0x0,%eax
  leave
  ret
```

tool_calls: name: extract_symbolic_data
arguments: label: D47
type_infered: string
name: extract_symbolic_data
arguments: label: D70
type_infered: string
name: extract_symbolic_data
arguments: label: D57
type_infered: string
name: extract_symbolic_data
arguments: label: D46
type_infered: string
name: extract_symbolic_data
arguments: label: D88
type_infered: string
name: extract_symbolic_data
arguments: label: D81
type_infered: f64

tool: D47: METHINKS IT IS LIKE A WEASEL

tool: D70: Generation #%i


tool: D57: Children:

tool: D46: %s	

tool: D88: 

New parent: %s



tool: D81: 1

assistant: ```c
int main() {
  int i, finished = 0, generation = 1;
  int length = strlen("METHINKS IT IS LIKE A WEASEL");
  char *parent = random_string(length);
  char **children;
  srand(time(0));
  while (!finished) {
    int top_index = 0;
    float top_score = 0.0;
    children = reproduce(50, parent, length);
    printf("Generation #%i\n", generation);
    printf("Children:\n");
    for (i = 0; i < 50; i++) {
      float this_score = compare(children[i], "METHINKS IT IS LIKE A WEASEL");
      printf("%s\t", children[i]);
      if (this_score > top_score) {
        top_score = this_score;
        top_index = i;
      }
    }
    strncpy(parent, children[top_index], length + 1);
    printf("\n\nNew parent: %s\n\n", parent);
    for (i = 0; i < 50; i++) {
      free(children[i]);
    }
    if (compare(parent, "METHINKS IT IS LIKE A WEASEL") == 1.0) {
      finished = 1;
    }
    generation++;
  }
  return 0;
}
```