user: What is the c source code of the assembly code below:

```asm
<fwrite_repr>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  sub    $0x1000,%rsp
  orq    $0x0,(%rsp)
  sub    $0x40,%rsp
  mov    %rdi,-0x2028(%rbp)
  mov    %rsi,-0x2030(%rbp)
  mov    %rdx,-0x2038(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x8(%rbp)
  xor    %eax,%eax
  movl   $0x0,-0x2018(%rbp)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x22,-0x2010(%rbp,%rax,1)
  jmp    L90
L141:
  mov    -0x2028(%rbp),%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  cmp    $0x2f,%eax
  jg     L1
  cmp    $0x8,%eax
  jl     L139
  sub    $0x8,%eax
  cmp    $0x27,%eax
  ja     L139
  mov    %eax,%eax
  lea    0x0(,%rax,4),%rdx
  lea    D22(%rip),%rax
  mov    (%rdx,%rax,1),%eax
  cltq
  lea    D22(%rip),%rdx
  add    %rdx,%rax
  notrack jmp *%rax
L1:
  cmp    $0x5c,%eax
  je     L115
  jmp    L139
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x22,-0x2010(%rbp,%rax,1)
  jmp    L38
L115:
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  jmp    L38
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x2f,-0x2010(%rbp,%rax,1)
  jmp    L38
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x62,-0x2010(%rbp,%rax,1)
  jmp    L38
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x66,-0x2010(%rbp,%rax,1)
  jmp    L38
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x6e,-0x2010(%rbp,%rax,1)
  jmp    L38
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x72,-0x2010(%rbp,%rax,1)
  jmp    L38
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x5c,-0x2010(%rbp,%rax,1)
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x74,-0x2010(%rbp,%rax,1)
  jmp    L38
L139:
  mov    -0x2028(%rbp),%rax
  movzbl (%rax),%eax
  movsbl %al,%eax
  mov    %eax,%edi
  call   <isprint@plt>
  test   %eax,%eax
  je     L60
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  mov    -0x2028(%rbp),%rdx
  movzbl (%rdx),%edx
  cltq
  mov    %dl,-0x2010(%rbp,%rax,1)
  jmp    L22
L60:
  mov    -0x2028(%rbp),%rax
  movzbl (%rax),%eax
  movzbl %al,%eax
  mov    -0x2018(%rbp),%edx
  movslq %edx,%rdx
  lea    -0x2010(%rbp),%rcx
  lea    (%rcx,%rdx,1),%rdi
  mov    %eax,%ecx
  lea    D13(%rip),%rax
  mov    %rax,%rdx
  mov    $0x10,%esi
  call   <snprintf@plt>
  mov    %eax,-0x2014(%rbp)
  mov    -0x2014(%rbp),%eax
  add    %eax,-0x2018(%rbp)
L22:
  nop
L38:
  addq   $0x1,-0x2028(%rbp)
  cmpl   $0x1f40,-0x2018(%rbp)
  jle    L90
  mov    -0x2038(%rbp),%rdx
  mov    -0x2018(%rbp),%esi
  lea    -0x2010(%rbp),%rax
  mov    %rdx,%rcx
  mov    $0x1,%edx
  mov    %rax,%rdi
  call   <fwrite@plt>
  movl   $0x0,-0x2018(%rbp)
L90:
  mov    -0x2030(%rbp),%rax
  lea    -0x1(%rax),%rdx
  mov    %rdx,-0x2030(%rbp)
  test   %rax,%rax
  jne    L141
  mov    -0x2018(%rbp),%eax
  lea    0x1(%rax),%edx
  mov    %edx,-0x2018(%rbp)
  cltq
  movb   $0x22,-0x2010(%rbp,%rax,1)
  mov    -0x2038(%rbp),%rdx
  mov    -0x2018(%rbp),%esi
  lea    -0x2010(%rbp),%rax
  mov    %rdx,%rcx
  mov    $0x1,%edx
  mov    %rax,%rdi
  call   <fwrite@plt>
  nop
  mov    -0x8(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L76
  call   <__stack_chk_fail@plt>
L76:
  leave
  ret
```

tool_calls: name: parse_data
arguments: data_label: D13
data_type: string

tool: D13: \u%04x

assistant: ```c
void fwrite_repr(char *p, size_t len, FILE *fp) {
  int index, n;
  char s[8192];
  index = 0;
  s[index++] = '"';
  while (len--) {
    switch (*p) {
    case '"':
      s[index++] = '\\';
      s[index++] = '\"';
      break;
    case '\\':
      s[index++] = '\\';
      s[index++] = '\\';
      break;
    case '/':
      s[index++] = '\\';
      s[index++] = '/';
      break;
    case '\b':
      s[index++] = '\\';
      s[index++] = 'b';
      break;
    case '\f':
      s[index++] = '\\';
      s[index++] = 'f';
      break;
    case '\n':
      s[index++] = '\\';
      s[index++] = 'n';
      break;
    case '\r':
      s[index++] = '\\';
      s[index++] = 'r';
      break;
    case '\t':
      s[index++] = '\\';
      s[index++] = 't';
      break;
    default:
      if (isprint(*p)) {
        s[index++] = *p;
      } else {
        n = snprintf(s + index, 16, "\\u%04x", (unsigned char)*p);
        index += n;
      }
      break;
    }
    p++;
    if (index > 8000) {
      fwrite(s, index, 1, fp);
      index = 0;
    }
  }
  s[index++] = '"';
  fwrite(s, index, 1, fp);
}
```