user: Converte this assembly snippet into its equivalent C code:

```asm
<WriteDict>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x850,%rsp
  mov    %rdi,-0x838(%rbp)
  mov    %rsi,-0x840(%rbp)
  mov    %rdx,-0x848(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movq   $0x0,-0x828(%rbp)
  jmp    L103
L66:
  movb   $0x0,-0x810(%rbp)
  movb   $0x0,-0x610(%rbp)
  movb   $0x0,-0x410(%rbp)
  movb   $0x0,-0x210(%rbp)
  mov    -0x828(%rbp),%rax
  lea    0x0(,%rax,8),%rdx
  mov    -0x840(%rbp),%rax
  add    %rdx,%rax
  mov    (%rax),%rax
  mov    %rax,-0x820(%rbp)
  lea    -0x810(%rbp),%rax
  mov    %rax,-0x818(%rbp)
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x27,%al
  je     L82
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x22,%al
  jne    L106
L82:
  mov    -0x818(%rbp),%rax
  lea    0x1(%rax),%rdx
  mov    %rdx,-0x818(%rbp)
  movb   $0x5c,(%rax)
  jmp    L106
L44:
  mov    -0x820(%rbp),%rdx
  lea    0x1(%rdx),%rax
  mov    %rax,-0x820(%rbp)
  mov    -0x818(%rbp),%rax
  lea    0x1(%rax),%rcx
  mov    %rcx,-0x818(%rbp)
  movzbl (%rdx),%edx
  mov    %dl,(%rax)
L106:
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x9,%al
  jne    L44
  mov    -0x818(%rbp),%rax
  movb   $0x0,(%rax)
  lea    -0x210(%rbp),%rax
  mov    %rax,-0x818(%rbp)
  addq   $0x1,-0x820(%rbp)
  jmp    L43
L168:
  mov    -0x820(%rbp),%rdx
  lea    0x1(%rdx),%rax
  mov    %rax,-0x820(%rbp)
  mov    -0x818(%rbp),%rax
  lea    0x1(%rax),%rcx
  mov    %rcx,-0x818(%rbp)
  movzbl (%rdx),%edx
  mov    %dl,(%rax)
L43:
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x9,%al
  je     L36
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  jne    L168
L36:
  mov    -0x818(%rbp),%rax
  movb   $0x0,(%rax)
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x9,%al
  jne    L76
  addq   $0x1,-0x820(%rbp)
  lea    -0x610(%rbp),%rax
  mov    %rax,-0x818(%rbp)
  jmp    L52
L102:
  mov    -0x820(%rbp),%rdx
  lea    0x1(%rdx),%rax
  mov    %rax,-0x820(%rbp)
  mov    -0x818(%rbp),%rax
  lea    0x1(%rax),%rcx
  mov    %rcx,-0x818(%rbp)
  movzbl (%rdx),%edx
  mov    %dl,(%rax)
L52:
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x9,%al
  je     L173
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  jne    L102
L173:
  mov    -0x818(%rbp),%rax
  movb   $0x0,(%rax)
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  cmp    $0x9,%al
  jne    L76
  addq   $0x1,-0x820(%rbp)
  lea    -0x410(%rbp),%rax
  mov    %rax,-0x818(%rbp)
  jmp    L15
L143:
  mov    -0x820(%rbp),%rdx
  lea    0x1(%rdx),%rax
  mov    %rax,-0x820(%rbp)
  mov    -0x818(%rbp),%rax
  lea    0x1(%rax),%rcx
  mov    %rcx,-0x818(%rbp)
  movzbl (%rdx),%edx
  mov    %dl,(%rax)
L15:
  mov    -0x820(%rbp),%rax
  movzbl (%rax),%eax
  test   %al,%al
  jne    L143
  mov    -0x818(%rbp),%rax
  movb   $0x0,(%rax)
L76:
  lea    -0x810(%rbp),%rdx
  mov    -0x838(%rbp),%rax
  lea    D6(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <fprintf@plt>
  lea    -0x610(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  test   %rax,%rax
  jle    L53
  lea    -0x610(%rbp),%rdx
  mov    -0x838(%rbp),%rax
  lea    D4(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <fprintf@plt>
L53:
  lea    -0x410(%rbp),%rax
  mov    %rax,%rdi
  call   <strlen@plt>
  test   %rax,%rax
  jle    L55
  lea    -0x410(%rbp),%rdx
  mov    -0x838(%rbp),%rax
  lea    D4(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <fprintf@plt>
L55:
  lea    -0x210(%rbp),%rdx
  mov    -0x838(%rbp),%rax
  lea    D2(%rip),%rcx
  mov    %rcx,%rsi
  mov    %rax,%rdi
  call   <fprintf@plt>
  addq   $0x1,-0x828(%rbp)
L103:
  mov    -0x828(%rbp),%rax
  cmp    -0x848(%rbp),%rax
  jb     L66
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L19
  call   <__stack_chk_fail@plt>
L19:
  leave
  ret
```

tool_calls: name: unpack_data
arguments: data_label: D6
type_infered: string
name: unpack_data
arguments: data_label: D4
type_infered: string
name: unpack_data
arguments: data_label: D2
type_infered: string

tool: D6: %s	

tool: D4: %s 

tool: D2: %s


assistant: ```c
void WriteDict(FILE *fout, char *index[], size_t nProns) {
  size_t nProc;
  char *s, *c;
  char word[512], oSym[512], pProb[512], pron[512];
  for (nProc = 0; nProc < nProns; nProc++) {
    word[0] = '\0';
    oSym[0] = '\0';
    pProb[0] = '\0';
    pron[0] = '\0';
    s = index[nProc];
    c = word;
    if ((*s == '\'') || (*s == '"'))
      *c++ = '\\';
    while (*s != '\t')
      *c++ = *s++;
    *c = '\0';
    c = pron;
    s++;
    while ((*s != '\t') && (*s != '\0'))
      *c++ = *s++;
    *c = '\0';
    if (*s == '\t') {
      s++;
      c = oSym;
      while ((*s != '\t') && (*s != '\0'))
        *c++ = *s++;
      *c = '\0';
      if (*s == '\t') {
        s++;
        c = pProb;
        while (*s != '\0')
          *c++ = *s++;
        *c = '\0';
      }
    }
    fprintf(fout, "%s\t", word);
    if (strlen(oSym) > 0)
      fprintf(fout, "%s ", oSym);
    if (strlen(pProb) > 0)
      fprintf(fout, "%s ", pProb);
    fprintf(fout, "%s\n", pron);
  }
}
```