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

```asm
<standard_membership_test>:
  endbr64
  push   %rbp
  mov    %rsp,%rbp
  push   %r13
  push   %r12
  push   %rbx
  sub    $0x38,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x28(%rbp)
  xor    %eax,%eax
  lea    D79(%rip),%rdi
  call   <puts@plt>
  lea    -0x38(%rbp),%rdx
  lea    -0x3c(%rbp),%rsi
  lea    -0x40(%rbp),%rdi
  call   <read_witness_set@plt>
  mov    -0x40(%rbp),%esi
  mov    %esi,%ebx
  sub    -0x3c(%rbp),%ebx
  lea    D154(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x3c(%rbp),%esi
  lea    D8(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    -0x38(%rbp),%esi
  lea    D107(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    D64(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    -0x41(%rbp),%rsi
  lea    D21(%rip),%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  cmpb   $0x79,-0x41(%rbp)
  je     L25
L26:
  lea    -0x41(%rbp),%r13
  mov    %r13,%rsi
  lea    D21(%rip),%r12
  mov    %r12,%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  lea    D14(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  mov    %r13,%rsi
  mov    %r12,%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  cmpb   $0x79,-0x41(%rbp)
  je     L63
L62:
  lea    -0x41(%rbp),%rsi
  lea    D21(%rip),%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  movl   $0x0,-0x2c(%rbp)
  lea    (%rbx,%rbx,1),%eax
  cltq
  shl    $0x3,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  mov    %rsp,%rdx
  sub    %rcx,%rdx
L8:
  cmp    %rdx,%rsp
  je     L19
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  jmp    L8
L25:
  lea    D58(%rip),%rdi
  call   <puts@plt>
  mov    $0x0,%eax
  call   <syscon_write_standard_system@plt>
  jmp    L26
L63:
  lea    D65(%rip),%rdi
  call   <puts@plt>
  mov    $0x0,%eax
  call   <solcon_write_standard_solutions@plt>
  jmp    L62
L19:
  mov    %rax,%rdx
  and    $0xfff,%edx
  sub    %rdx,%rsp
  test   %rdx,%rdx
  je     L58
  orq    $0x0,-0x8(%rsp,%rdx,1)
L58:
  mov    %rsp,%r12
  lea    D139(%rip),%rdi
  mov    $0x0,%eax
  call   <printf@plt>
  lea    -0x2c(%rbp),%rsi
  lea    D41(%rip),%rdi
  mov    $0x0,%eax
  call   <scanf@plt>
  lea    D106(%rip),%rdi
  call   <puts@plt>
  mov    %r12,%rsi
  mov    %ebx,%edi
  call   <standard_read_point@plt>
  sub    $0x8,%rsp
  mov    -0x2c(%rbp),%eax
  push   %rax
  lea    -0x30(%rbp),%r9
  lea    -0x34(%rbp),%r8
  mov    %r12,%rcx
  movsd  D145(%rip),%xmm1
  movsd  D147(%rip),%xmm0
  mov    -0x3c(%rbp),%edx
  mov    %ebx,%esi
  mov    $0x1,%edi
  call   <standard_homotopy_membership_test@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L11
  mov    $0x0,%eax
  lea    -0x18(%rbp),%rsp
  pop    %rbx
  pop    %r12
  pop    %r13
  pop    %rbp
  ret
L11:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: disassemble_data
arguments: data_tag: D79
type: string
name: disassemble_data
arguments: data_tag: D154
type: string
name: disassemble_data
arguments: data_tag: D8
type: string
name: disassemble_data
arguments: data_tag: D107
type: string
name: disassemble_data
arguments: data_tag: D64
type: string
name: disassemble_data
arguments: data_tag: D21
type: string
name: disassemble_data
arguments: data_tag: D14
type: string
name: disassemble_data
arguments: data_tag: D58
type: string
name: disassemble_data
arguments: data_tag: D65
type: string
name: disassemble_data
arguments: data_tag: D139
type: string
name: disassemble_data
arguments: data_tag: D41
type: string
name: disassemble_data
arguments: data_tag: D106
type: string
name: disassemble_data
arguments: data_tag: D145
type: byte[8]
name: disassemble_data
arguments: data_tag: D147
type: byte[8]

tool: D79: 
Reading a witness set ...

tool: D154: 
The ambient dimension : %d.


tool: D8: The dimension of the solution set : %d.


tool: D107: The degree of the solution set : %d.


tool: D64: 
Do you want to see the embedded system ? (y/n) 

tool: D21: %c

tool: D14: 
Do you want to see the solutions ? (y/n) 

tool: D58: 
The system read :

tool: D65: 
The solutions read :

tool: D139: 
Give the number of tasks : 

tool: D41: %d

tool: D106: 
Reading the coordinates of the test point x ...

tool: {"D145": [0x8d,0xed,0xb5,0xa0,0xf7,0xc6,0xb0,0x3e]}

tool: {"D147": [0x3a,0x8c,0x30,0xe2,0x8e,0x79,0x45,0x3e]}

assistant: ```c
int standard_membership_test(void) {
  int fail, n, dim, deg, nv;
  char ans;
  printf("\nReading a witness set ...\n");
  fail = read_witness_set(&n, &dim, &deg);
  nv = n - dim;
  if (1 > 0) {
    printf("\nThe ambient dimension : %d.\n", n);
    printf("The dimension of the solution set : %d.\n", dim);
    printf("The degree of the solution set : %d.\n", deg);
    printf("\nDo you want to see the embedded system ? (y/n) ");
    scanf("%c", &ans);
    if (ans == 'y') {
      printf("\nThe system read :\n");
      fail = syscon_write_standard_system();
    }
    scanf("%c", &ans);
    printf("\nDo you want to see the solutions ? (y/n) ");
    scanf("%c", &ans);
    if (ans == 'y') {
      printf("\nThe solutions read :\n");
      fail = solcon_write_standard_solutions();
    }
    scanf("%c", &ans);
  }
  {
    int fail, onsys, onset, nbtasks = 0;
    double tpt[2 * nv];
    const double restol = 1.0e-8;
    const double homtol = 1.0e-6;
    printf("\nGive the number of tasks : ");
    scanf("%d", &nbtasks);
    printf("\nReading the coordinates of the test point x ...\n");
    standard_read_point(nv, tpt);
    fail = standard_homotopy_membership_test(1, nv, dim, restol, homtol, tpt, &onsys, &onset, nbtasks);
  }
  return 0;
}
```