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

```asm
<main>:
  endbr64
  push   %r15
  lea    D37(%rip),%rdi
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x38,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x28(%rsp)
  xor    %eax,%eax
  lea    0x18(%rsp),%rdx
  lea    0x1c(%rsp),%rcx
  lea    0x14(%rsp),%rsi
  call   <scanf@plt>
  mov    0x1c(%rsp),%edi
  mov    $0x8,%esi
  call   <calloc@plt>
  mov    0x1c(%rsp),%edi
  mov    $0x8,%esi
  mov    %rax,0x8(%rsp)
  call   <calloc@plt>
  mov    0x1c(%rsp),%edi
  mov    $0x8,%esi
  mov    %rax,%rbx
  call   <calloc@plt>
  mov    0x1c(%rsp),%edi
  mov    $0x8,%esi
  mov    %rax,%r12
  call   <calloc@plt>
  mov    0x14(%rsp),%edx
  mov    %rax,%r15
  test   %edx,%edx
  jle    L46
  xor    %ebp,%ebp
  lea    0x20(%rsp),%r14
  lea    D20(%rip),%r13
  nopl   0x0(%rax)
L73:
  mov    %r14,%rsi
  mov    %r13,%rdi
  xor    %eax,%eax
  add    $0x1,%ebp
  call   <scanf@plt>
  mov    0x20(%rsp),%rax
  addq   $0x1,-0x8(%r12,%rax,8)
  cmp    %ebp,0x14(%rsp)
  jg     L73
L46:
  mov    0x18(%rsp),%eax
  test   %eax,%eax
  jle    L38
  xor    %ebp,%ebp
  lea    0x20(%rsp),%r14
  lea    D20(%rip),%r13
  nopw   0x0(%rax,%rax,1)
L29:
  mov    %r14,%rsi
  mov    %r13,%rdi
  xor    %eax,%eax
  add    $0x1,%ebp
  call   <scanf@plt>
  mov    0x20(%rsp),%rax
  mov    0x8(%rsp),%rsi
  addq   $0x1,-0x8(%r15,%rax,8)
  mov    0x20(%rsp),%rax
  shl    $0x3,%rax
  mov    -0x8(%r15,%rax,1),%rdx
  imul   -0x8(%r12,%rax,1),%rdx
  mov    %rdx,-0x8(%rsi,%rax,1)
  mov    0x20(%rsp),%rax
  mov    %rdx,-0x8(%rbx,%rax,8)
  cmp    %ebp,0x18(%rsp)
  jg     L29
L38:
  mov    0x1c(%rsp),%r11d
  test   %r11d,%r11d
  jle    L11
  xor    %r14d,%r14d
  lea    D5(%rip),%r12
  movabs $0x89705f3112a28fe5,%r13
  nopl   0x0(%rax,%rax,1)
L62:
  mov    0x8(%rsp),%r15
  mov    %rbx,%r8
  xor    %esi,%esi
  xor    %edi,%edi
  xor    %r9d,%r9d
  sub    %rbx,%r15
  nopw   0x0(%rax,%rax,1)
L56:
  mov    (%r15,%r8,1),%rcx
  mov    (%r8),%r10
  add    $0x1,%r9d
  add    $0x8,%r8
  mov    %rcx,%rax
  imul   %r13
  mov    %rcx,%rax
  sar    $0x3f,%rax
  add    %rcx,%rdx
  sar    $0x1d,%rdx
  sub    %rax,%rdx
  mov    %rdi,%rax
  imul   $0x3b9aca07,%rdx,%rdx
  sub    %rdx,%rcx
  imul   %r13
  mov    %rdi,%rax
  sar    $0x3f,%rax
  add    %rdi,%rdx
  sar    $0x1d,%rdx
  sub    %rax,%rdx
  mov    %rdi,%rax
  add    %r10,%rdi
  imul   $0x3b9aca07,%rdx,%rdx
  sub    %rdx,%rax
  imul   %rax,%rcx
  mov    %rcx,%rax
  imul   %r13
  mov    %rcx,%rax
  sar    $0x3f,%rax
  add    %rcx,%rdx
  sar    $0x1d,%rdx
  sub    %rax,%rdx
  imul   $0x3b9aca07,%rdx,%rax
  sub    %rax,%rcx
  mov    %rcx,-0x8(%r8)
  add    %rcx,%rsi
  cmp    %r11d,%r9d
  jl     L56
  mov    %rsi,%rax
  mov    %r12,%rdi
  add    $0x1,%r14d
  imul   %r13
  lea    (%rdx,%rsi,1),%rax
  mov    %rsi,%rdx
  sar    $0x3f,%rdx
  sar    $0x1d,%rax
  sub    %rdx,%rax
  imul   $0x3b9aca07,%rax,%rax
  sub    %rax,%rsi
  call   <printf@plt>
  mov    0x1c(%rsp),%r11d
  cmp    %r14d,%r11d
  jg     L62
L11:
  mov    0x28(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L35
  add    $0x38,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L35:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: extract_symbolic_data
arguments: label: D37
type_guessed: string
name: extract_symbolic_data
arguments: label: D20
type_guessed: string
name: extract_symbolic_data
arguments: label: D5
type_guessed: string

tool: D37: %d %d %d

tool: D20: %lld

tool: D5: %lld 

assistant: ```c
int main(void) {
  int n, m, c;
  scanf("%d %d %d", &n, &m, &c);
  long long int *spheres = (long long int *)calloc(c, 8);
  long long int *dup = (long long int *)calloc(c, 8);
  long long int *u = (long long int *)calloc(c, 8);
  long long int *l = (long long int *)calloc(c, 8);
  int i, j;
  long long int x;
  for (i = 0; i < n; i++) {
    scanf("%lld", &x);
    u[x - 1]++;
  }
  for (i = 0; i < m; i++) {
    scanf("%lld", &x);
    l[x - 1]++;
    dup[x - 1] = spheres[x - 1] = l[x - 1] * u[x - 1];
  }
  long long int sum;
  long long int aux;
  for (j = 0; j < c; j++) {
    sum = 0;
    aux = 0;
    for (i = 0; i < c; i++) {
      long long int y = dup[i];
      dup[i] = ((spheres[i] % 1000000007) * (sum % 1000000007)) % 1000000007;
      aux += (dup[i] % 1000000007);
      sum += y;
    }
    printf("%lld ", (aux % 1000000007));
  }
  return 0;
}
```