user: Please show me the C implementation that matches the assembly code listed below:

```asm
<main>:
  endbr64
  push   %r14
  mov    $0xa,%edx
  push   %r13
  lea    D156(%rip),%r13
  push   %r12
  push   %rbp
  push   %rbx
  xor    %ebx,%ebx
  sub    $0xc0,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0xb8(%rsp)
  xor    %eax,%eax
  lea    0x60(%rsp),%r12
  lea    0x10(%rsp),%rbp
  mov    %rsp,%rcx
  mov    D96(%rip),%rax
  lea    0x8(%rsp),%r8
  mov    %r12,%rsi
  mov    %rbp,%rdi
  mov    %rax,0x10(%rsp)
  mov    D142(%rip),%rax
  mov    %rax,0x18(%rsp)
  mov    D99(%rip),%rax
  mov    %rax,0x20(%rsp)
  mov    D237(%rip),%rax
  mov    %rax,0x28(%rsp)
  mov    D37(%rip),%rax
  mov    %rax,0x30(%rsp)
  mov    D213(%rip),%rax
  mov    %rax,0x38(%rsp)
  mov    D50(%rip),%rax
  mov    %rax,0x40(%rsp)
  mov    D59(%rip),%rax
  mov    %rax,0x48(%rsp)
  mov    D197(%rip),%rax
  mov    %rax,0x50(%rsp)
  mov    D223(%rip),%rax
  mov    %rax,0x58(%rsp)
  mov    D0(%rip),%rax
  mov    %rax,0x60(%rsp)
  mov    D207(%rip),%rax
  mov    %rax,0x68(%rsp)
  mov    D132(%rip),%rax
  mov    %rax,0x70(%rsp)
  mov    D138(%rip),%rax
  mov    %rax,0x78(%rsp)
  mov    D51(%rip),%rax
  mov    %rax,0x80(%rsp)
  mov    D84(%rip),%rax
  mov    %rax,0x88(%rsp)
  mov    D150(%rip),%rax
  mov    %rax,0x90(%rsp)
  mov    D19(%rip),%rax
  mov    %rax,0x98(%rsp)
  mov    D231(%rip),%rax
  mov    %rax,0xa0(%rsp)
  mov    D61(%rip),%rax
  mov    %rax,0xa8(%rsp)
  call   <CSPL_Regression_TheilSen@plt>
  lea    D38(%rip),%rdx
  lea    D243(%rip),%rsi
  xor    %eax,%eax
  lea    D14(%rip),%rdi
  movq   %xmm0,%r14
  call   <printf@plt>
  nopl   0x0(%rax)
L7:
  movsd  0x0(%rbp,%rbx,8),%xmm0
  movsd  (%r12,%rbx,8),%xmm1
  mov    %r13,%rdi
  mov    $0x2,%eax
  add    $0x1,%rbx
  call   <printf@plt>
  cmp    $0xa,%rbx
  jne    L7
  mov    $0xa,%edi
  call   <putchar@plt>
  movsd  0x8(%rsp),%xmm1
  movsd  (%rsp),%xmm0
  movq   %r14,%xmm2
  lea    D28(%rip),%rdi
  mov    $0x3,%eax
  call   <printf@plt>
  mov    0xb8(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L3
  add    $0xc0,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  ret
L3:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: tag: D156
type_guessed: string
name: retrieve_data
arguments: tag: D96
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D142
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D99
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D237
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D37
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D213
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D50
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D59
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D197
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D223
type_guessed: byte[8]
name: retrieve_data
arguments: tag: D0
type_guessed: f64
name: retrieve_data
arguments: tag: D207
type_guessed: f64
name: retrieve_data
arguments: tag: D132
type_guessed: f64
name: retrieve_data
arguments: tag: D138
type_guessed: f64
name: retrieve_data
arguments: tag: D51
type_guessed: f64
name: retrieve_data
arguments: tag: D84
type_guessed: f64
name: retrieve_data
arguments: tag: D150
type_guessed: f64
name: retrieve_data
arguments: tag: D19
type_guessed: f64
name: retrieve_data
arguments: tag: D231
type_guessed: f64
name: retrieve_data
arguments: tag: D61
type_guessed: f64
name: retrieve_data
arguments: tag: D38
type_guessed: string
name: retrieve_data
arguments: tag: D243
type_guessed: string
name: retrieve_data
arguments: tag: D14
type_guessed: string
name: retrieve_data
arguments: tag: D28
type_guessed: string

tool: D156: %10.2lf	%10.2lf


tool: {"D96": [0x00,0x00,0x00,0x00,0x00,0x00,0xf0,0x3f]}

tool: {"D142": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x40]}

tool: {"D99": [0x00,0x00,0x00,0x00,0x00,0x00,0x08,0x40]}

tool: {"D237": [0x00,0x00,0x00,0x00,0x00,0x00,0x10,0x40]}

tool: {"D37": [0x00,0x00,0x00,0x00,0x00,0x00,0x14,0x40]}

tool: {"D213": [0x00,0x00,0x00,0x00,0x00,0x00,0x18,0x40]}

tool: {"D50": [0x00,0x00,0x00,0x00,0x00,0x00,0x1c,0x40]}

tool: {"D59": [0x00,0x00,0x00,0x00,0x00,0x00,0x20,0x40]}

tool: {"D197": [0x00,0x00,0x00,0x00,0x00,0x00,0x22,0x40]}

tool: {"D223": [0x00,0x00,0x00,0x00,0x00,0x00,0x24,0x40]}

tool: D0: 0.86074211

tool: D207: 2.243673

tool: D132: 2.32922599

tool: D138: 3.5269751

tool: D51: 5.19649183

tool: D84: 4.55875795

tool: D150: 8.6822283

tool: D19: 7.86981641

tool: D231: 9.0570581

tool: D61: 7.766994

tool: D38: y

tool: D243: x

tool: D14: %10s	%10s


tool: D28: Slope: %lf, Intercept=%lf, R**2=%lf


assistant: ```c
int main(void) {
  double x[10] = {1, 2, 3, 4, 5, 6, 7, 8, 9, 10};
  double y[10] = {0.86074211, 2.243673, 2.32922599, 3.5269751, 5.19649183, 4.55875795, 8.6822283, 7.86981641, 9.0570581, 7.766994};
  long i;
  double slope, intercept;
  double rsq;
  rsq = CSPL_Regression_TheilSen(x, y, 10, &slope, &intercept);
  printf("%10s\t%10s\n", "x", "y");
  for (i = 0; i < 10; i++) {
    printf("%10.2lf\t%10.2lf\n", x[i], y[i]);
  }
  printf("\n");
  printf("Slope: %lf, Intercept=%lf, R**2=%lf\n", slope, intercept, rsq);
  return (0);
}
```