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

```asm
<main>:
  endbr64
  push   %r15
  mov    $0x4,%ecx
  mov    $0x1,%edx
  mov    $0x7,%esi
  push   %r14
  mov    $0x1,%edi
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    $0x1,%ebx
  sub    $0x48,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,0x38(%rsp)
  xor    %eax,%eax
  lea    0x30(%rsp),%rbp
  movq   $0xffffffffffffffff,0x30(%rsp)
  call   <matrix@plt>
  mov    $0x7,%esi
  mov    $0x1,%edi
  mov    %rax,%r12
  call   <vector@plt>
  mov    $0x7,%esi
  mov    $0x1,%edi
  mov    %rax,0x8(%rsp)
  call   <vector@plt>
  mov    $0x2,%ecx
  mov    $0x1,%edx
  mov    $0x7,%esi
  mov    $0x1,%edi
  mov    %rax,%r14
  call   <matrix@plt>
  mov    $0x7,%esi
  mov    $0x1,%edi
  mov    %rax,0x10(%rsp)
  call   <lvector@plt>
  mov    %rax,0x18(%rsp)
  nopl   0x0(%rax)
L47:
  mov    %rbp,%rdi
  mov    $0x4,%r15d
  call   <ran1@plt>
  mov    0x8(%rsp),%rax
  movss  %xmm0,(%rax,%rbx,4)
L34:
  mov    (%r12,%rbx,8),%r13
  mov    %rbp,%rdi
  call   <ran1@plt>
  add    %r15,%r13
  add    $0x4,%r15
  movss  %xmm0,0x0(%r13)
  cmp    $0x14,%r15
  jne    L34
  add    $0x1,%rbx
  cmp    $0x8,%rbx
  jne    L47
  mov    0x8(%rsp),%r8
  mov    %r14,%r9
  mov    $0x1,%ecx
  mov    %r12,%rdi
  mov    $0x2,%edx
  mov    $0x7,%esi
  mov    $0x1,%ebp
  call   <banmul@plt>
  lea    D7(%rip),%rbx
  nopl   0x0(%rax)
L19:
  mov    0x8(%rsp),%rax
  movss  (%r14,%rbp,4),%xmm0
  mov    %rbp,%rsi
  mov    %rbx,%rdi
  movss  (%rax,%rbp,4),%xmm1
  add    $0x1,%rbp
  call   <printf@plt>
  cmp    $0x8,%rbp
  jne    L19
  sub    $0x8,%rsp
  mov    $0x1,%ecx
  mov    $0x2,%edx
  mov    %r12,%rdi
  lea    0x34(%rsp),%rax
  mov    $0x7,%esi
  push   %rax
  mov    0x28(%rsp),%rbp
  mov    0x20(%rsp),%r15
  mov    %rbp,%r9
  mov    %r15,%r8
  call   <bandec@plt>
  mov    %rbp,%r9
  mov    $0x2,%edx
  mov    %r15,%r8
  mov    $0x1,%ecx
  mov    $0x7,%esi
  mov    %r12,%rdi
  mov    %r14,(%rsp)
  call   <banbks@plt>
  mov    $0x1,%ebp
  pop    %rax
  pop    %rdx
  xchg   %ax,%ax
L25:
  mov    0x8(%rsp),%rax
  movss  (%r14,%rbp,4),%xmm0
  mov    %rbp,%rsi
  mov    %rbx,%rdi
  movss  (%rax,%rbp,4),%xmm1
  add    $0x1,%rbp
  call   <printf@plt>
  cmp    $0x8,%rbp
  jne    L25
  mov    0x18(%rsp),%rdi
  mov    $0x7,%edx
  mov    $0x1,%esi
  call   <free_lvector@plt>
  mov    0x10(%rsp),%rdi
  mov    $0x2,%r8d
  mov    $0x1,%ecx
  mov    $0x7,%edx
  mov    $0x1,%esi
  call   <free_matrix@plt>
  mov    $0x7,%edx
  mov    $0x1,%esi
  mov    %r14,%rdi
  call   <free_vector@plt>
  mov    0x8(%rsp),%rdi
  mov    $0x7,%edx
  mov    $0x1,%esi
  call   <free_vector@plt>
  mov    $0x4,%r8d
  mov    $0x1,%ecx
  mov    %r12,%rdi
  mov    $0x7,%edx
  mov    $0x1,%esi
  call   <free_matrix@plt>
  mov    0x38(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L42
  add    $0x48,%rsp
  xor    %eax,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L42:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: label: D7
type: string

tool: D7: %ld %12.6f %12.6f


assistant: ```c
int main(void) {
  float d, **a, **al, *b, *x;
  unsigned long i, j, *indx;
  long idum = (-1);
  a = matrix(1, 7, 1, 4);
  x = vector(1, 7);
  b = vector(1, 7);
  al = matrix(1, 7, 1, 2);
  indx = lvector(1, 7);
  for (i = 1; i <= 7; i++) {
    x[i] = ran1(&idum);
    for (j = 1; j <= 4; j++) {
      a[i][j] = ran1(&idum);
    }
  }
  banmul(a, 7, 2, 1, x, b);
  for (i = 1; i <= 7; i++)
    printf("%ld %12.6f %12.6f\n", i, b[i], x[i]);
  bandec(a, 7, 2, 1, al, indx, &d);
  banbks(a, 7, 2, 1, al, indx, b);
  for (i = 1; i <= 7; i++)
    printf("%ld %12.6f %12.6f\n", i, b[i], x[i]);
  free_lvector(indx, 1, 7);
  free_matrix(al, 1, 7, 1, 2);
  free_vector(b, 1, 7);
  free_vector(x, 1, 7);
  free_matrix(a, 1, 7, 1, 4);
  return 0;
}
```