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

```asm
<fisica_regla8>:
  endbr64
  push   %r15
  push   %r14
  mov    %rdi,%r14
  push   %r13
  push   %r12
  push   %rbp
  xor    %ebp,%ebp
  push   %rbx
  sub    $0x88,%rsp
  mov    %esi,0x4(%rsp)
  lea    0x18(%rsp),%r13
  lea    0x68(%rsp),%r12
  mov    %rdi,0x8(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x78(%rsp)
  xor    %eax,%eax
  movq   $0x0,0x18(%rsp)
  call   <strlen@plt>
  mov    %r14,%rdi
  mov    %eax,%ebx
  call   <strdupa@plt>
  movslq %ebx,%rdx
  mov    %r14,%rdi
  xor    %esi,%esi
  add    $0x1,%rdx
  lea    0x20(%rsp),%r14
  mov    %rax,0x18(%rsp)
  lea    D131(%rip),%rbx
  call   <memset@plt>
  mov    %r14,%r15
  nopw   0x0(%rax,%rax,1)
L82:
  mov    %rbx,%rsi
  mov    %r13,%rdi
  call   <strsep@plt>
  mov    %rax,(%r15)
  test   %rax,%rax
  je     L197
  cmpb   $0x0,(%rax)
  lea    0x8(%r15),%rcx
  cmovne %rcx,%r15
  add    $0x1,%ebp
  cmp    %r12,%r15
  jb     L82
  movq   $0x0,(%r15)
L195:
  xor    %ebx,%ebx
  xor    %r13d,%r13d
  lea    D133(%rip),%r15
  jmp    L154
  nop
L31:
  mov    0x4(%rsp),%eax
  mov    $0x1,%r13d
  test   %eax,%eax
  jne    L120
L211:
  add    $0x1,%rbx
  cmp    %ebx,%ebp
  jle    L159
L154:
  mov    (%r14,%rbx,8),%r12
  mov    %r15,%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D118(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D16(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D134(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D66(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D79(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D122(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D137(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D85(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D53(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  lea    D13(%rip),%rsi
  mov    %r12,%rdi
  call   <strcmp@plt>
  test   %rax,%rax
  je     L31
  mov    0x8(%rsp),%rdi
  call   <strlen@plt>
  test   %eax,%eax
  jne    L77
L188:
  mov    %r12,%rdi
  call   <strlen@plt>
  mov    0x8(%rsp),%rdi
  mov    %r12,%rsi
  mov    %eax,%edx
  call   <strncat@plt>
  jmp    L211
L120:
  mov    %r12,%rsi
  lea    D35(%rip),%rdi
  add    $0x1,%rbx
  call   <printf@plt>
  cmp    %ebx,%ebp
  jg     L154
L159:
  mov    0x78(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L167
  add    $0x88,%rsp
  mov    %r13d,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L197:
  xor    %r13d,%r13d
  test   %ebp,%ebp
  jne    L195
  jmp    L159
L167:
  call   <__stack_chk_fail@plt>
L77:
  mov    0x8(%rsp),%rdi
  mov    $0x1,%edx
  lea    D108(%rip),%rsi
  call   <strncat@plt>
  jmp    L188
```

tool_calls: name: extract_symbolic_data
arguments: data_tag: D131
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D133
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D118
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D16
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D134
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D66
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D79
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D122
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D137
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D85
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D53
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D13
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D35
type_infered: string
name: extract_symbolic_data
arguments: data_tag: D108
type_infered: string

tool: D131:  	


tool: D133: DE

tool: D118: DEL

tool: D16: LA

tool: D134: LAS

tool: D66: LOS

tool: D79: MC

tool: D122: MAC

tool: D137: MI

tool: D85: VAN

tool: D53: VON

tool: D13: Y

tool: D35: Eliminando la palabra "%s".


tool: D108:  

assistant: ```c
int fisica_regla8(char *palabra, int debug) {
  int excluded = 0;
  char **ap = NULL;
  char *word[10];
  int counter = 0;
  int i = 0;
  size_t len = 0;
  char *copy = NULL;
  int applied = 0;
  len = strlen(palabra);
  copy = strdupa(palabra);
  memset(palabra, 0, len + 1);
  for (ap = word; ap < &word[9] && (*ap = strsep(&copy, " \t\n")) != NULL;) {
    if (**ap != '\0') {
      ap++;
    }
    counter++;
  }
  *ap = NULL;
  for (i = 0; i < counter; i++) {
    excluded = 0;
    if (strcmp(word[i], "DE") == 0)
      excluded = 1;
    else if (strcmp(word[i], "DEL") == 0)
      excluded = 1;
    else if (strcmp(word[i], "LA") == 0)
      excluded = 1;
    else if (strcmp(word[i], "LAS") == 0)
      excluded = 1;
    else if (strcmp(word[i], "LOS") == 0)
      excluded = 1;
    else if (strcmp(word[i], "MC") == 0)
      excluded = 1;
    else if (strcmp(word[i], "MAC") == 0)
      excluded = 1;
    else if (strcmp(word[i], "MI") == 0)
      excluded = 1;
    else if (strcmp(word[i], "VAN") == 0)
      excluded = 1;
    else if (strcmp(word[i], "VON") == 0)
      excluded = 1;
    else if (strcmp(word[i], "Y") == 0)
      excluded = 1;
    else {
      if (strlen(palabra))
        strncat(palabra, " ", 1);
      strncat(palabra, word[i], strlen(word[i]));
    }
    if (excluded) {
      if (debug)
        printf("Eliminando la palabra \"%s\".\n", word[i]);
      applied = 1;
    }
  }
  return applied;
}
```