user: Translate the below assembly code into C programming language:

```asm
<main>:
  endbr64
  push   %r15
  lea    D69(%rip),%r15
  push   %r14
  lea    D68(%rip),%r14
  push   %r13
  lea    D10(%rip),%r13
  push   %r12
  push   %rbp
  push   %rbx
  lea    D59(%rip),%rbx
  sub    $0x48,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x38(%rsp)
  xor    %eax,%eax
  call   <tmpfile@plt>
  lea    D12(%rip),%rdi
  mov    %rax,%rbp
  call   <title@plt>
  mov    %r14,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  xor    %edx,%edx
  mov    %r14,%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <fpack@plt>
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  xor    %esi,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  lea    D52(%rip),%r10
  mov    %r10,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    $0x2,%ecx
  mov    %rbp,%rdi
  xor    %eax,%eax
  lea    D52(%rip),%r10
  mov    $0x1,%edx
  mov    %r10,%rsi
  call   <fpack@plt>
  mov    $0x2,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x1,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x2,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %rbx,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    $0x5,%r8d
  mov    %rbx,%rsi
  xor    %eax,%eax
  mov    $0x4,%ecx
  mov    $0x3,%edx
  mov    %rbp,%rdi
  call   <fpack@plt>
  mov    $0x3,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x3,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x4,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x5,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %r15,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    $0x9,%r9d
  mov    %r15,%rsi
  xor    %eax,%eax
  mov    $0x8,%r8d
  mov    $0x7,%ecx
  mov    $0x6,%edx
  mov    %rbp,%rdi
  call   <fpack@plt>
  mov    $0x4,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x6,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x7,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x8,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %rbp,%rdi
  call   <fgetc@plt>
  mov    $0x9,%esi
  movsbl %al,%edi
  call   <int_ok@plt>
  mov    %r13,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  sub    $0x8,%rsp
  mov    $0x65,%ecx
  xor    %eax,%eax
  push   $0x0
  mov    $0x6c,%r9d
  mov    $0x48,%edx
  mov    %r13,%rsi
  push   $0xa
  mov    $0x6c,%r8d
  mov    %rbp,%rdi
  push   $0x21
  push   $0x64
  push   $0x6c
  push   $0x72
  push   $0x6f
  push   $0x77
  push   $0x20
  push   $0x2c
  push   $0x6f
  call   <fpack@plt>
  add    $0x60,%rsp
  mov    $0xf,%esi
  mov    %rax,%rdi
  mov    %rax,%r12
  call   <size_ok@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rcx
  mov    %r12,%rdx
  lea    0x20(%rsp),%rdi
  mov    $0x1,%esi
  mov    %rdi,0x8(%rsp)
  lea    0x11(%rsp),%r12
  call   <fread@plt>
  lea    D103(%rip),%r11
  mov    0x8(%rsp),%rdi
  mov    %r11,%rsi
  call   <str_ok@plt>
  lea    D90(%rip),%rdi
  call   <title@plt>
  mov    %r14,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rsi
  xor    %edi,%edi
  call   <fputc@plt>
  mov    %rbp,%rdi
  movb   $0xff,0x11(%rsp)
  call   <rewind@plt>
  mov    %r12,%rdx
  mov    %r14,%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  lea    0x12(%rsp),%r14
  call   <funpack@plt>
  mov    $0x1,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  movsbl 0x11(%rsp),%edi
  xor    %esi,%esi
  call   <int_ok@plt>
  lea    D52(%rip),%r10
  mov    %r10,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rsi
  mov    $0x1,%edi
  call   <fputc@plt>
  mov    %rbp,%rsi
  mov    $0x2,%edi
  call   <fputc@plt>
  mov    %rbp,%rdi
  movb   $0xff,0x11(%rsp)
  movb   $0xff,0x12(%rsp)
  call   <rewind@plt>
  mov    %r14,%rcx
  mov    %r12,%rdx
  mov    %rbp,%rdi
  lea    D52(%rip),%r10
  xor    %eax,%eax
  mov    %r10,%rsi
  call   <funpack@plt>
  mov    $0x2,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  movsbl 0x11(%rsp),%edi
  mov    $0x1,%esi
  call   <int_ok@plt>
  movsbl 0x12(%rsp),%edi
  mov    $0x2,%esi
  call   <int_ok@plt>
  mov    %rbx,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rsi
  mov    $0x3,%edi
  call   <fputc@plt>
  mov    %rbp,%rsi
  mov    $0x4,%edi
  call   <fputc@plt>
  mov    %rbp,%rsi
  mov    $0x5,%edi
  call   <fputc@plt>
  mov    %rbp,%rdi
  movb   $0xff,0x11(%rsp)
  movb   $0xff,0x12(%rsp)
  movb   $0xff,0x13(%rsp)
  call   <rewind@plt>
  lea    0x13(%rsp),%r8
  mov    %r14,%rcx
  mov    %r12,%rdx
  mov    %rbx,%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  mov    %r8,0x8(%rsp)
  call   <funpack@plt>
  mov    $0x3,%esi
  lea    0x14(%rsp),%rbx
  mov    %rax,%rdi
  call   <size_ok@plt>
  movsbl 0x11(%rsp),%edi
  mov    $0x3,%esi
  call   <int_ok@plt>
  movsbl 0x12(%rsp),%edi
  mov    $0x4,%esi
  call   <int_ok@plt>
  movsbl 0x13(%rsp),%edi
  mov    $0x5,%esi
  call   <int_ok@plt>
  mov    %r15,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  mov    %rbp,%rsi
  mov    $0x6,%edi
  call   <fputc@plt>
  mov    %rbp,%rsi
  mov    $0x7,%edi
  call   <fputc@plt>
  mov    %rbp,%rsi
  mov    $0x8,%edi
  call   <fputc@plt>
  mov    %rbp,%rsi
  mov    $0x9,%edi
  call   <fputc@plt>
  mov    %rbp,%rdi
  movb   $0xff,0x11(%rsp)
  movb   $0xff,0x12(%rsp)
  movb   $0xff,0x13(%rsp)
  movb   $0xff,0x14(%rsp)
  call   <rewind@plt>
  mov    0x8(%rsp),%r8
  mov    %rbx,%r9
  mov    %r14,%rcx
  mov    %r12,%rdx
  mov    %r15,%rsi
  mov    %rbp,%rdi
  xor    %eax,%eax
  call   <funpack@plt>
  mov    $0x4,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  movsbl 0x11(%rsp),%edi
  mov    $0x6,%esi
  call   <int_ok@plt>
  movsbl 0x12(%rsp),%edi
  mov    $0x7,%esi
  call   <int_ok@plt>
  movsbl 0x13(%rsp),%edi
  mov    $0x8,%esi
  call   <int_ok@plt>
  movsbl 0x14(%rsp),%edi
  mov    $0x9,%esi
  call   <int_ok@plt>
  mov    %r13,%rdi
  call   <test@plt>
  mov    %rbp,%rdi
  call   <rewind@plt>
  lea    D103(%rip),%r11
  mov    %rbp,%rcx
  mov    $0xe,%edx
  mov    %r11,%rdi
  mov    $0x1,%esi
  call   <fwrite@plt>
  mov    %rbp,%rdi
  movb   $0xff,0x11(%rsp)
  movb   $0xff,0x12(%rsp)
  movb   $0xff,0x13(%rsp)
  movb   $0xff,0x14(%rsp)
  movb   $0xff,0x15(%rsp)
  movb   $0xff,0x16(%rsp)
  movb   $0xff,0x17(%rsp)
  movb   $0xff,0x18(%rsp)
  movb   $0xff,0x19(%rsp)
  movb   $0xff,0x1a(%rsp)
  movb   $0xff,0x1b(%rsp)
  movb   $0xff,0x1c(%rsp)
  movb   $0xff,0x1d(%rsp)
  movb   $0xff,0x1e(%rsp)
  movb   $0xff,0x1f(%rsp)
  call   <rewind@plt>
  sub    $0x8,%rsp
  mov    %rbx,%r9
  mov    %r14,%rcx
  lea    0x27(%rsp),%rax
  mov    %r12,%rdx
  mov    %r13,%rsi
  mov    %rbp,%rdi
  push   %rax
  lea    0x2e(%rsp),%rax
  push   %rax
  lea    0x35(%rsp),%rax
  push   %rax
  lea    0x3c(%rsp),%rax
  push   %rax
  lea    0x43(%rsp),%rax
  push   %rax
  lea    0x4a(%rsp),%rax
  push   %rax
  lea    0x51(%rsp),%rax
  push   %rax
  lea    0x58(%rsp),%rax
  push   %rax
  lea    0x5f(%rsp),%rax
  push   %rax
  lea    0x66(%rsp),%rax
  push   %rax
  lea    0x6d(%rsp),%rax
  push   %rax
  mov    0x68(%rsp),%r8
  xor    %eax,%eax
  call   <funpack@plt>
  add    $0x60,%rsp
  mov    $0xf,%esi
  mov    %rax,%rdi
  call   <size_ok@plt>
  movsbl 0x11(%rsp),%edi
  mov    $0x48,%esi
  call   <int_ok@plt>
  movsbl 0x12(%rsp),%edi
  mov    $0x65,%esi
  call   <int_ok@plt>
  movsbl 0x13(%rsp),%edi
  mov    $0x6c,%esi
  call   <int_ok@plt>
  movsbl 0x14(%rsp),%edi
  mov    $0x6c,%esi
  call   <int_ok@plt>
  movsbl 0x15(%rsp),%edi
  mov    $0x6f,%esi
  call   <int_ok@plt>
  movsbl 0x16(%rsp),%edi
  mov    $0x2c,%esi
  call   <int_ok@plt>
  movsbl 0x17(%rsp),%edi
  mov    $0x20,%esi
  call   <int_ok@plt>
  movsbl 0x18(%rsp),%edi
  mov    $0x77,%esi
  call   <int_ok@plt>
  movsbl 0x19(%rsp),%edi
  mov    $0x6f,%esi
  call   <int_ok@plt>
  movsbl 0x1a(%rsp),%edi
  mov    $0x72,%esi
  call   <int_ok@plt>
  movsbl 0x1b(%rsp),%edi
  mov    $0x6c,%esi
  call   <int_ok@plt>
  movsbl 0x1c(%rsp),%edi
  mov    $0x64,%esi
  call   <int_ok@plt>
  movsbl 0x1d(%rsp),%edi
  mov    $0x21,%esi
  call   <int_ok@plt>
  movsbl 0x1e(%rsp),%edi
  mov    $0xa,%esi
  call   <int_ok@plt>
  movsbl 0x1f(%rsp),%edi
  xor    %esi,%esi
  call   <int_ok@plt>
  mov    0x38(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L6
  add    $0x48,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L6:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: read_data
arguments: data_tag: D69
datatype: string
name: read_data
arguments: data_tag: D68
datatype: string
name: read_data
arguments: data_tag: D10
datatype: string
name: read_data
arguments: data_tag: D59
datatype: string
name: read_data
arguments: data_tag: D12
datatype: string
name: read_data
arguments: data_tag: D52
datatype: string
name: read_data
arguments: data_tag: D103
datatype: string
name: read_data
arguments: data_tag: D90
datatype: string

tool: D69: c4

tool: D68: c

tool: D10: c15

tool: D59: c c c

tool: D12: fpack()

tool: D52: cc

tool: D103: Hello, world!


tool: D90: funpack()

assistant: ```c
int main(void) {
  FILE *file = tmpfile();
  size_t len;
  title("fpack()");
  test("c");
  rewind(file);
  len = fpack(file, "c", 0);
  size_ok(len, 1);
  rewind(file);
  int_ok(fgetc(file), 0);
  test("cc");
  rewind(file);
  len = fpack(file, "cc", 1, 2);
  size_ok(len, 2);
  rewind(file);
  int_ok(fgetc(file), 1);
  int_ok(fgetc(file), 2);
  test("c c c");
  rewind(file);
  len = fpack(file, "c c c", 3, 4, 5);
  size_ok(len, 3);
  rewind(file);
  int_ok(fgetc(file), 3);
  int_ok(fgetc(file), 4);
  int_ok(fgetc(file), 5);
  test("c4");
  rewind(file);
  len = fpack(file, "c4", 6, 7, 8, 9);
  size_ok(len, 4);
  rewind(file);
  int_ok(fgetc(file), 6);
  int_ok(fgetc(file), 7);
  int_ok(fgetc(file), 8);
  int_ok(fgetc(file), 9);
  test("c15");
  rewind(file);
  len = fpack(file, "c15", 'H', 'e', 'l', 'l', 'o', ',', ' ', 'w', 'o', 'r', 'l', 'd', '!', '\n', 0);
  size_ok(len, 15);
  rewind(file);
  char buffer[20];
  fread(buffer, 1, len, file);
  str_ok(buffer, "Hello, world!\n");
  title("funpack()");
  char c1, c2, c3, c4, c5;
  char c6, c7, c8, c9, c10;
  char c11, c12, c13, c14, c15;
  test("c");
  rewind(file);
  fputc(0, file);
  c1 = -1;
  rewind(file);
  len = funpack(file, "c", &c1);
  size_ok(len, 1);
  int_ok(c1, 0);
  test("cc");
  rewind(file);
  fputc(1, file);
  fputc(2, file);
  c1 = -1;
  c2 = -1;
  rewind(file);
  len = funpack(file, "cc", &c1, &c2);
  size_ok(len, 2);
  int_ok(c1, 1);
  int_ok(c2, 2);
  test("c c c");
  rewind(file);
  fputc(3, file);
  fputc(4, file);
  fputc(5, file);
  c1 = -1;
  c2 = -1;
  c3 = -1;
  rewind(file);
  len = funpack(file, "c c c", &c1, &c2, &c3);
  size_ok(len, 3);
  int_ok(c1, 3);
  int_ok(c2, 4);
  int_ok(c3, 5);
  test("c4");
  rewind(file);
  fputc(6, file);
  fputc(7, file);
  fputc(8, file);
  fputc(9, file);
  c1 = -1;
  c2 = -1;
  c3 = -1;
  c4 = -1;
  rewind(file);
  len = funpack(file, "c4", &c1, &c2, &c3, &c4);
  size_ok(len, 4);
  int_ok(c1, 6);
  int_ok(c2, 7);
  int_ok(c3, 8);
  int_ok(c4, 9);
  test("c15");
  rewind(file);
  fputs("Hello, world!\n", file);
  c1 = -1;
  c2 = -1;
  c3 = -1;
  c4 = -1;
  c5 = -1;
  c6 = -1;
  c7 = -1;
  c8 = -1;
  c9 = -1;
  c10 = -1;
  c11 = -1;
  c12 = -1;
  c13 = -1;
  c14 = -1;
  c15 = -1;
  rewind(file);
  len = funpack(file, "c15", &c1, &c2, &c3, &c4, &c5, &c6, &c7, &c8, &c9, &c10, &c11, &c12, &c13, &c14, &c15);
  size_ok(len, 15);
  int_ok(c1, 'H');
  int_ok(c2, 'e');
  int_ok(c3, 'l');
  int_ok(c4, 'l');
  int_ok(c5, 'o');
  int_ok(c6, ',');
  int_ok(c7, ' ');
  int_ok(c8, 'w');
  int_ok(c9, 'o');
  int_ok(c10, 'r');
  int_ok(c11, 'l');
  int_ok(c12, 'd');
  int_ok(c13, '!');
  int_ok(c14, '\n');
  int_ok(c15, 0);
  return 0;
}
```