user: 请显示与下面列出的汇编代码相匹配的C语言实现：

```asm
<standard_Laurent_membership_test>:
  endbr64
  push   %rbp
  lea    D15(%rip),%rdi
  mov    %rsp,%rbp
  push   %r14
  push   %r13
  lea    -0x41(%rbp),%r14
  lea    D20(%rip),%r13
  push   %r12
  sub    $0x38,%rsp
  mov    %fs:0x28,%rax
  mov    %rax,-0x28(%rbp)
  xor    %eax,%eax
  call   <puts@plt>
  lea    -0x38(%rbp),%rdx
  lea    -0x3c(%rbp),%rsi
  lea    -0x40(%rbp),%rdi
  call   <read_standard_Laurent_witness_set@plt>
  mov    -0x40(%rbp),%esi
  lea    D110(%rip),%rdi
  xor    %eax,%eax
  mov    %esi,%r12d
  sub    -0x3c(%rbp),%r12d
  call   <printf@plt>
  mov    -0x3c(%rbp),%esi
  lea    D125(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  mov    -0x38(%rbp),%esi
  lea    D48(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  lea    D14(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  xor    %eax,%eax
  mov    %r14,%rsi
  mov    %r13,%rdi
  call   <scanf@plt>
  cmpb   $0x79,-0x41(%rbp)
  je     L61
L38:
  mov    %r14,%rsi
  mov    %r13,%rdi
  xor    %eax,%eax
  call   <scanf@plt>
  lea    D98(%rip),%rdi
  xor    %eax,%eax
  call   <printf@plt>
  xor    %eax,%eax
  mov    %r14,%rsi
  mov    %r13,%rdi
  call   <scanf@plt>
  cmpb   $0x79,-0x41(%rbp)
  je     L2
L5:
  mov    %r14,%rsi
  mov    %r13,%rdi
  xor    %eax,%eax
  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     L88
L7:
  sub    $0x1000,%rsp
  orq    $0x0,0xff8(%rsp)
  cmp    %rdx,%rsp
  jne    L7
L88:
  and    $0xfff,%eax
  sub    %rax,%rsp
  test   %rax,%rax
  jne    L22
L59:
  lea    D19(%rip),%rdi
  xor    %eax,%eax
  mov    %rsp,%r13
  call   <printf@plt>
  lea    -0x2c(%rbp),%rsi
  lea    D123(%rip),%rdi
  xor    %eax,%eax
  call   <scanf@plt>
  lea    D74(%rip),%rdi
  call   <puts@plt>
  mov    %r13,%rsi
  mov    %r12d,%edi
  call   <standard_read_point@plt>
  mov    -0x2c(%rbp),%eax
  sub    $0x8,%rsp
  mov    -0x3c(%rbp),%edx
  lea    -0x30(%rbp),%r9
  lea    -0x34(%rbp),%r8
  mov    %r13,%rcx
  mov    %r12d,%esi
  push   %rax
  movsd  D138(%rip),%xmm1
  mov    $0x1,%edi
  movsd  D26(%rip),%xmm0
  call   <standard_Laurent_homotopy_membership_test@plt>
  mov    -0x28(%rbp),%rax
  sub    %fs:0x28,%rax
  jne    L16
  lea    -0x18(%rbp),%rsp
  xor    %eax,%eax
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %rbp
  ret
  cs nopw 0x0(%rax,%rax,1)
L2:
  lea    D131(%rip),%rdi
  call   <puts@plt>
  xor    %eax,%eax
  call   <solcon_write_standard_solutions@plt>
  jmp    L5
  nopl   0x0(%rax,%rax,1)
L61:
  lea    D85(%rip),%rdi
  call   <puts@plt>
  xor    %eax,%eax
  call   <syscon_write_standard_Laurent_system@plt>
  jmp    L38
  nopl   0x0(%rax,%rax,1)
L22:
  orq    $0x0,-0x8(%rsp,%rax,1)
  jmp    L59
L16:
  call   <__stack_chk_fail@plt>
```

tool_calls: name: parse_data
arguments: tag: D15
type_infered: string
name: parse_data
arguments: tag: D20
type_infered: string
name: parse_data
arguments: tag: D110
type_infered: string
name: parse_data
arguments: tag: D125
type_infered: string
name: parse_data
arguments: tag: D48
type_infered: string
name: parse_data
arguments: tag: D14
type_infered: string
name: parse_data
arguments: tag: D98
type_infered: string
name: parse_data
arguments: tag: D19
type_infered: string
name: parse_data
arguments: tag: D123
type_infered: string
name: parse_data
arguments: tag: D74
type_infered: string
name: parse_data
arguments: tag: D138
type_infered: byte[8]
name: parse_data
arguments: tag: D26
type_infered: byte[8]
name: parse_data
arguments: tag: D131
type_infered: string
name: parse_data
arguments: tag: D85
type_infered: string

tool: D15: 
Reading a witness set ...

tool: D20: %c

tool: D110: 
The ambient dimension : %d.


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


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


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

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

tool: D19: 
Give the number of tasks : 

tool: D123: %d

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

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

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

tool: D131: 
The solutions read :

tool: D85: 
The system read :

assistant: ```c
int standard_Laurent_membership_test(void) {
  int fail, n, dim, deg, nv;
  char ans;
  printf("\nReading a witness set ...\n");
  fail = read_standard_Laurent_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_Laurent_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;
    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_Laurent_homotopy_membership_test(1, nv, dim, restol, homtol, tpt, &onsys, &onset, nbtasks);
  }
  return 0;
}
```