user: Converte this assembly snippet into its equivalent C code:

```asm
<test_dobldobl_solution_strings>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x88,%rsp
  mov    %edi,-0x84(%rbp)
  mov    %esi,-0x88(%rbp)
  mov    %fs:0x28,%rax
  mov    %rax,-0x38(%rbp)
  xor    %eax,%eax
  lea    D4(%rip),%rax
  mov    %rax,%rdi
  call   <puts@plt>
  mov    -0x84(%rbp),%eax
  mov    %eax,%esi
  lea    D37(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    -0x78(%rbp),%rax
  mov    %rax,%rsi
  lea    D23(%rip),%rax
  mov    %rax,%rdi
  call   <scanf@plt>
  mov    -0x68(%rbp),%rcx
  lea    -0x74(%rbp),%rdx
  lea    -0x78(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x46,%edi
  call   <_ada_use_solcon@plt>
  mov    %eax,-0x6c(%rbp)
  mov    -0x74(%rbp),%edx
  mov    -0x78(%rbp),%eax
  mov    %eax,%esi
  lea    D22(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    %rsp,%rax
  mov    %rax,%rbx
  mov    -0x74(%rbp),%eax
  movslq %eax,%rdx
  sub    $0x1,%rdx
  mov    %rdx,-0x60(%rbp)
  movslq %eax,%rdx
  mov    %rdx,-0xa0(%rbp)
  movq   $0x0,-0x98(%rbp)
  movslq %eax,%rdx
  mov    %rdx,-0xb0(%rbp)
  movq   $0x0,-0xa8(%rbp)
  cltq
  lea    0x0(,%rax,4),%rdx
  mov    $0x10,%eax
  sub    $0x1,%rax
  add    %rdx,%rax
  mov    $0x10,%esi
  mov    $0x0,%edx
  div    %rsi
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L36:
  cmp    %rdx,%rsp
  je     L81
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L36
L81:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L87
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L87:
  mov    %rsp,%rax
  add    $0x3,%rax
  shr    $0x2,%rax
  shl    $0x2,%rax
  mov    %rax,-0x58(%rbp)
  mov    -0x74(%rbp),%eax
  add    $0x1,%eax
  movslq %eax,%rdx
  sub    $0x1,%rdx
  mov    %rdx,-0x50(%rbp)
  movslq %eax,%rdx
  mov    %rdx,%r14
  mov    $0x0,%r15d
  movslq %eax,%rdx
  mov    %rdx,%r12
  mov    $0x0,%r13d
  cltq
  mov    $0x10,%edx
  sub    $0x1,%rdx
  add    %rdx,%rax
  mov    $0x10,%edi
  mov    $0x0,%edx
  div    %rdi
  imul   $0x10,%rax,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L27:
  cmp    %rdx,%rsp
  je     L70
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L27
L70:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  mov    %rax,%rdx
  and    $0xfff,%edx
  test   %rdx,%rdx
  je     L39
  and    $0xfff,%eax
  sub    $0x8,%rax
  add    %rsp,%rax
  orq    $0x0,(%rax)
L39:
  mov    %rsp,%rax
  add    $0x0,%rax
  mov    %rax,-0x48(%rbp)
  mov    -0x78(%rbp),%eax
  mov    %eax,-0x40(%rbp)
  mov    -0x74(%rbp),%eax
  mov    %eax,-0x3c(%rbp)
  mov    -0x68(%rbp),%rcx
  mov    -0x58(%rbp),%rdx
  lea    -0x40(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x47,%edi
  call   <_ada_use_solcon@plt>
  mov    %eax,-0x6c(%rbp)
  movl   $0x0,-0x70(%rbp)
  jmp    L17
L9:
  mov    -0x58(%rbp),%rax
  mov    -0x70(%rbp),%edx
  movslq %edx,%rdx
  mov    (%rax,%rdx,4),%eax
  mov    %eax,%ecx
  mov    -0x48(%rbp),%rdx
  mov    -0x70(%rbp),%eax
  cltq
  mov    %cl,(%rdx,%rax,1)
  addl   $0x1,-0x70(%rbp)
L17:
  mov    -0x74(%rbp),%eax
  cmp    %eax,-0x70(%rbp)
  jl     L9
  mov    -0x74(%rbp),%eax
  mov    -0x48(%rbp),%rdx
  cltq
  movb   $0x0,(%rdx,%rax,1)
  mov    -0x78(%rbp),%eax
  mov    -0x48(%rbp),%rdx
  mov    %eax,%esi
  lea    D38(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x88(%rbp),%eax
  mov    %eax,-0x40(%rbp)
  mov    -0x74(%rbp),%eax
  mov    %eax,-0x3c(%rbp)
  mov    -0x68(%rbp),%rcx
  mov    -0x58(%rbp),%rdx
  lea    -0x40(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x4e,%edi
  call   <_ada_use_solcon@plt>
  mov    %eax,-0x6c(%rbp)
  mov    -0x78(%rbp),%eax
  mov    %eax,%esi
  lea    D2(%rip),%rax
  mov    %rax,%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x68(%rbp),%rcx
  mov    -0x58(%rbp),%rdx
  lea    -0x40(%rbp),%rax
  mov    %rax,%rsi
  mov    $0x29,%edi
  call   <_ada_use_solcon@plt>
  mov    %eax,-0x6c(%rbp)
  mov    %rbx,%rsp
  nop
  mov    -0x38(%rbp),%rax
  sub    %fs:0x28,%rax
  je     L23
  call   <__stack_chk_fail@plt>
L23:
  lea    -0x28(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  pop    %rbp
  ret
```

tool_calls: name: unpack_data
arguments: data_tag: D4
type: string
name: unpack_data
arguments: data_tag: D37
type: string
name: unpack_data
arguments: data_tag: D23
type: string
name: unpack_data
arguments: data_tag: D22
type: string
name: unpack_data
arguments: data_tag: D38
type: string
name: unpack_data
arguments: data_tag: D2
type: string

tool: D4: 
Testing strings of solutions ... 


tool: D37: Give index of solution ( in [1,%d] ) : 

tool: D23: %d

tool: D22: -> number of characters in solution %d : %d


tool: D38: the solution %d :
%s


tool: D2: the container after appending solution %d :


assistant: ```c
void test_dobldobl_solution_strings(int len, int nvar) {
  int k, n, fail;
  double *c;
  printf("\nTesting strings of solutions ... \n\n");
  printf("Give index of solution ( in [1,%d] ) : ", len);
  scanf("%d", &k);
  fail = _ada_use_solcon(70, &k, &n, c);
  printf("-> number of characters in solution %d : %d\n", k, n);
  {
    int i, a[2];
    int v[n];
    char s[n + 1];
    a[0] = k;
    a[1] = n;
    fail = _ada_use_solcon(71, a, v, c);
    for (i = 0; i < n; i++)
      s[i] = (char)v[i];
    s[n] = '\0';
    printf("the solution %d :\n%s\n", k, s);
    a[0] = nvar;
    a[1] = n;
    fail = _ada_use_solcon(78, a, v, c);
    printf("the container after appending solution %d :\n", k);
    fail = _ada_use_solcon(41, a, v, c);
  }
}
```