user: Demonstrate the C code that generates the assembly output below:

```asm
<gfun_cpp>:
  endbr64
  push   %r15
  push   %r14
  mov    %r8,%r14
  push   %r13
  mov    %rcx,%r13
  push   %r12
  mov    %rdi,%r12
  push   %rbp
  mov    %rsi,%rbp
  mov    %rcx,%rsi
  push   %rbx
  mov    %rbp,%rdi
  mov    %rdx,%rbx
  mov    %r8,%rdx
  sub    $0x8,%rsp
  call   <find_gct@plt>
  test   %rax,%rax
  je     L29
  mov    %r14,%r8
  mov    %r13,%rcx
  mov    %rbp,%rdx
  mov    %r12,%rdi
  lea    D0(%rip),%rsi
  mov    %rax,%r15
  xor    %eax,%eax
  call   <fprintf@plt>
  mov    $0x1,%esi
  mov    %r12,%rcx
  lea    D12(%rip),%rdi
  mov    $0x1e,%edx
  call   <fwrite@plt>
  lea    D6(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L64
  lea    D169(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  jne    L57
L64:
  mov    %rbx,%rdx
  lea    D32(%rip),%rsi
  mov    %r12,%rdi
  xor    %eax,%eax
  call   <fprintf@plt>
  mov    %r13,%rdx
  mov    %r15,%rsi
  mov    %r12,%rdi
  lea    D130(%rip),%rcx
  call   <generate_arg@plt>
  mov    %r12,%rcx
  mov    $0x2,%edx
  mov    $0x1,%esi
  lea    D49(%rip),%rdi
  call   <fwrite@plt>
  mov    %r15,%rsi
  mov    %r12,%rdi
  mov    %r14,%rdx
  lea    D77(%rip),%rcx
  call   <generate_arg@plt>
  mov    %r12,%rsi
  mov    $0x29,%edi
  call   <fputc@plt>
L45:
  mov    %r12,%rcx
  mov    $0x6,%edx
  mov    $0x1,%esi
  lea    D58(%rip),%rdi
  call   <fwrite@plt>
  xor    %eax,%eax
L77:
  add    $0x8,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  cs nopw 0x0(%rax,%rax,1)
L57:
  lea    D2(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L64
  lea    D95(%rip),%rsi
  mov    %rbp,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  jne    L24
  lea    D26(%rip),%rsi
  mov    %r13,%rdi
  call   <strcmp@plt>
  test   %eax,%eax
  je     L48
L24:
  lea    D130(%rip),%rcx
  mov    %r13,%rdx
  mov    %r15,%rsi
  mov    %r12,%rdi
  call   <generate_arg@plt>
  mov    %rbx,%rdx
  mov    %r12,%rdi
  xor    %eax,%eax
  lea    D61(%rip),%rsi
  call   <fprintf@plt>
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    %r12,%rdi
  lea    D77(%rip),%rcx
  call   <generate_arg@plt>
  jmp    L45
L48:
  lea    D77(%rip),%rcx
  mov    %r14,%rdx
  mov    %r15,%rsi
  mov    %r12,%rdi
  call   <generate_arg@plt>
  mov    %rbx,%rdx
  mov    %r12,%rdi
  xor    %eax,%eax
  lea    D61(%rip),%rsi
  call   <fprintf@plt>
  mov    %r13,%rdx
  mov    %r15,%rsi
  mov    %r12,%rdi
  lea    D130(%rip),%rcx
  call   <generate_arg@plt>
  jmp    L45
L29:
  mov    $0xffffffff,%eax
  jmp    L77
```

tool_calls: name: parse_data
arguments: tag: D0
type_infered: string
name: parse_data
arguments: tag: D12
type_infered: string
name: parse_data
arguments: tag: D6
type_infered: string
name: parse_data
arguments: tag: D169
type_infered: string
name: parse_data
arguments: tag: D32
type_infered: string
name: parse_data
arguments: tag: D130
type_infered: string
name: parse_data
arguments: tag: D49
type_infered: string
name: parse_data
arguments: tag: D77
type_infered: string
name: parse_data
arguments: tag: D58
type_infered: string
name: parse_data
arguments: tag: D2
type_infered: string
name: parse_data
arguments: tag: D95
type_infered: string
name: parse_data
arguments: tag: D26
type_infered: string
name: parse_data
arguments: tag: D61
type_infered: string

tool: D0: tuple_cell op_numeric_%s_%s_%s(const tuple_cell &a1, const tuple_cell &a2)
{


tool: D12:     return tuple_cell::atomic(

tool: D6: divide

tool: D169: integer_divide

tool: D32: %s(

tool: D130: a1

tool: D49: , 

tool: D77: a2

tool: D58: );
}



tool: D2: mod

tool: D95: equal

tool: D26: xs_double

tool: D61:  %s 

assistant: ```c
int gfun_cpp(FILE *f, const char *op, const char *ops, const char *type1, const char *type2) {
  const char *gct = find_gct(op, type1, type2);
  if (!gct)
    return -1;
  fprintf(f, "tuple_cell op_numeric_%s_%s_%s(const tuple_cell &a1, const tuple_cell &a2)\n{\n", op, type1, type2);
  fprintf(f, "    return tuple_cell::atomic(");
  if (!strcmp(op, "divide") || !strcmp(op, "integer_divide") || !strcmp(op, "mod")) {
    fprintf(f, "%s(", ops);
    generate_arg(f, gct, type1, "a1");
    fprintf(f, ", ");
    generate_arg(f, gct, type2, "a2");
    fprintf(f, ")");
  } else if (!strcmp(op, "equal") && !strcmp(type1, "xs_double")) {
    generate_arg(f, gct, type2, "a2");
    fprintf(f, " %s ", ops);
    generate_arg(f, gct, type1, "a1");
  } else {
    generate_arg(f, gct, type1, "a1");
    fprintf(f, " %s ", ops);
    generate_arg(f, gct, type2, "a2");
  }
  fprintf(f, ");\n}\n\n");
  return 0;
}
```