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

```asm
<standard_membership_test>:
  endbr64
  push   %rbp
  lea    D111(%rip),%rdi
  mov    %rsp,%rbp
  push   %r14
  push   %r13
  lea    -0x3d(%rbp),%r14
  lea    D28(%rip),%r13
  push   %r12
  sub    $0x28,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x28(%rbp)
  xor    %eax,%eax
  call   <puts@plt>
  lea    -0x34(%rbp),%rdx
  lea    -0x38(%rbp),%rsi
  lea    -0x3c(%rbp),%rdi
  call   <read_witness_set@plt>
  mov    -0x3c(%rbp),%esi
  lea    D106(%rip),%rdi
  xor    %eax,%eax
  mov    %esi,%r12d
  sub    -0x38(%rbp),%r12d
  call   <printf@plt>
  mov    -0x38(%rbp),%esi
  lea    D69(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    -0x34(%rbp),%esi
  lea    D31(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D62(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    %r14,%rsi
  mov    %r13,%rdi
  call   <scanf@plt>
  cmpb   $0x79,-0x3d(%rbp)
  je     L61
L33:
  mov    %r14,%rsi
  mov    %r13,%rdi
  call   <scanf@plt>
  lea    D58(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    %r14,%rsi
  mov    %r13,%rdi
  call   <scanf@plt>
  cmpb   $0x79,-0x3d(%rbp)
  je     L65
L35:
  mov    %r14,%rsi
  mov    %r13,%rdi
  call   <scanf@plt>
  lea    (%r12,%r12,1),%eax
  mov    %rsp,%rdx
  cltq
  shl    $0x3,%rax
  mov    %rax,%rcx
  and    $0xfffffffffffff000,%rcx
  sub    %rcx,%rdx
  cmp    %rdx,%rsp
  je     L46
L60:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdx,%rsp
  jne    L60
L46:
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  jne    L58
L14:
  mov    %rsp,%r13
  lea    D3(%rip),%rdi
  call   <puts@plt>
  mov    %r13,%rsi
  mov    %r12d,%edi
  call   <standard_read_point@plt>
  mov    -0x38(%rbp),%edx
  lea    -0x2c(%rbp),%r9
  lea    -0x30(%rbp),%r8
  movsd  D98(%rip),%xmm1
  mov    %r13,%rcx
  mov    %r12d,%esi
  mov    $0x1,%edi
  movsd  D80(%rip),%xmm0
  call   <standard_homotopy_membership_test@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L50
  lea    -0x18(%rbp),%rsp
  xor    %eax,%eax
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %rbp
  ret
  cs nopw 0x0(%rax,%rax,1)
L65:
  lea    D22(%rip),%rdi
  call   <puts@plt>
  xor    %eax,%eax
  call   <solcon_write_standard_solutions@plt>
  jmp    L35
  nopl   0x0(%rax,%rax,1)
L61:
  lea    D25(%rip),%rdi
  call   <puts@plt>
  xor    %eax,%eax
  call   <syscon_write_standard_system@plt>
  jmp    L33
  nopl   0x0(%rax,%rax,1)
L58:
  orq    $0x0,-0x8(%rsp,%rax,1)
  jmp    L14
L50:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: retrieve_data
arguments: data_tag: D111
type: string
name: retrieve_data
arguments: data_tag: D28
type: string
name: retrieve_data
arguments: data_tag: D106
type: string
name: retrieve_data
arguments: data_tag: D69
type: string
name: retrieve_data
arguments: data_tag: D31
type: string
name: retrieve_data
arguments: data_tag: D62
type: string
name: retrieve_data
arguments: data_tag: D58
type: string
name: retrieve_data
arguments: data_tag: D3
type: string
name: retrieve_data
arguments: data_tag: D98
type: byte[8]
name: retrieve_data
arguments: data_tag: D80
type: byte[8]
name: retrieve_data
arguments: data_tag: D22
type: string
name: retrieve_data
arguments: data_tag: D25
type: string

tool: D111: 
Reading a witness set ...

tool: D28: %c

tool: D106: 
The ambient dimension : %d.


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


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


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

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

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

tool: {"D98": [0xbb,0xbd,0xd7,0xd9,0xdf,0x7c,0xdb,0x3d]}

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

tool: D22: 
The solutions read :

tool: D25: 
The system read :

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;
    double tpt[2 * nv];
    const double restol = 1.0e-6;
    const double homtol = 1.0e-10;
    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);
  }
  return 0;
}
```