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

```asm
<schreier_sims>:
  endbr64
  push   %r15
  mov    %rdi,%r15
  push   %r14
  mov    %esi,%r14d
  push   %r13
  mov    %rdx,%r13
  push   %r12
  push   %rbp
  mov    %ecx,%ebp
  push   %rbx
  mov    %r8d,%ebx
  sub    $0x60,%rsp
  mov    0xa0(%rsp),%rax
  mov    0xb0(%rsp),%rdi
  mov    %r9,0x28(%rsp)
  mov    0x98(%rsp),%rcx
  mov    0xa8(%rsp),%r12
  mov    %rdi,0x38(%rsp)
  mov    %r15,%rdi
  mov    %rax,0x20(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x50(%rsp)
  xor    %eax,%eax
  mov    %rcx,0x10(%rsp)
  push   %rcx
  mov    %ebp,%ecx
  call   <nonstable_points@plt>
  mov    %ebp,%eax
  mov    %r13,%rdi
  imul   %ebx,%eax
  mov    %eax,0x24(%rsp)
  mov    %eax,%edx
  mov    0x28(%rsp),%rax
  mov    (%rax),%rsi
  call   <copy_list@plt>
  mov    %ebp,(%r12)
  pop    %rdx
  pop    %rcx
  mov    0x8(%rsp),%rcx
  mov    (%rcx),%esi
  test   %esi,%esi
  je     L51
  lea    0x0(,%rbx,4),%edi
  call   <malloc@plt>
  mov    0x14(%rsp),%r13d
  mov    %rax,%r14
  shl    $0x2,%r13d
  mov    %r13d,%edi
  call   <malloc@plt>
  mov    %r13d,%edi
  mov    %rax,%rbp
  call   <malloc@plt>
  mov    %rax,%r13
  mov    0x8(%rsp),%rax
  mov    (%rax),%edx
  lea    0x44(%rsp),%rax
  mov    %rax,0x38(%rsp)
  mov    %edx,0x14(%rsp)
  test   %edx,%edx
  jg     L50
  jmp    L68
  nopl   0x0(%rax,%rax,1)
L60:
  mov    (%r12),%esi
  cmp    %r15d,%esi
  jle    L59
  imul   %ebx,%esi
  mov    %rbp,%rdi
  mov    %r10d,0x14(%rsp)
  shl    $0x2,%esi
  call   <realloc@plt>
  mov    (%r12),%esi
  mov    %r13,%rdi
  mov    %rax,%rbp
  imul   %ebx,%esi
  shl    $0x2,%esi
  call   <realloc@plt>
  mov    0x14(%rsp),%r10d
  mov    %rax,%r13
L59:
  mov    0x8(%rsp),%rax
  mov    %r10d,0x14(%rsp)
  mov    (%rax),%edx
L50:
  mov    0x20(%rsp),%rdi
  mov    %r14,%rsi
  call   <copy_list@plt>
  mov    (%r12),%edx
  mov    0x18(%rsp),%rcx
  mov    %rbp,%rsi
  mov    0x8(%rsp),%rax
  imul   %ebx,%edx
  mov    (%rcx),%rdi
  mov    (%rax),%r11d
  mov    %r11d,0x2c(%rsp)
  call   <copy_list@plt>
  mov    0x14(%rsp),%esi
  sub    $0x8,%rsp
  mov    %r13,%r9
  mov    (%r12),%r15d
  push   0x40(%rsp)
  mov    %ebx,%r8d
  mov    %rbp,%rdx
  lea    -0x1(%rsi),%r10d
  mov    %r14,%rdi
  mov    %r10d,%esi
  mov    %r15d,%ecx
  mov    %r10d,0x38(%rsp)
  call   <stabilizer@plt>
  pop    %rax
  push   0x38(%rsp)
  mov    %ebx,%r8d
  push   %r12
  mov    %r15d,%ecx
  mov    %rbp,%rdx
  mov    %r14,%rdi
  push   0x30(%rsp)
  push   0x28(%rsp)
  push   0x48(%rsp)
  mov    0x74(%rsp),%eax
  push   %rax
  push   %r13
  mov    0x54(%rsp),%r9d
  mov    0x6c(%rsp),%esi
  call   <schreier_sims_step@plt>
  mov    0x68(%rsp),%r10d
  add    $0x40,%rsp
  test   %r10d,%r10d
  jne    L60
L68:
  mov    %r14,%rdi
  call   <free@plt>
  mov    %rbp,%rdi
  call   <free@plt>
  mov    %r13,%rdi
  call   <free@plt>
L49:
  mov    0x48(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L11
  add    $0x58,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
  nopl   0x0(%rax,%rax,1)
L51:
  mov    0x20(%rsp),%rsi
  mov    %r14d,%edx
  mov    %r15,%rdi
  call   <copy_list@plt>
  mov    0x8(%rsp),%rax
  mov    %r14d,(%rax)
  jmp    L49
L11:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
void schreier_sims(int *base, int bl, int *GS, int m, int n, int *newbase, int *nbl, int **newGS, int *nm, int *num) {
  nonstable_points(base, bl, GS, m, n, newbase, nbl);
  copy_list(GS, *newGS, m * n);
  *nm = m;
  if (*nbl == 0) {
    copy_list(base, newbase, bl);
    *nbl = bl;
    return;
  }
  int i;
  int *base2 = (int *)malloc(n * sizeof(int)), bl2;
  int *GS2 = (int *)malloc(m * n * sizeof(int)), m2;
  int *stab = (int *)malloc(m * n * sizeof(int)), mm;
  m2 = *nm;
  for (i = (*nbl); i > 0; i--) {
    if (*nm > m2) {
      GS2 = (int *)realloc(GS2, (*nm) * n * sizeof(int));
      stab = (int *)realloc(stab, (*nm) * n * sizeof(int));
    }
    copy_list(newbase, base2, *nbl);
    bl2 = *nbl;
    copy_list(*newGS, GS2, (*nm) * n);
    m2 = *nm;
    stabilizer(base2, i - 1, GS2, m2, n, stab, &mm);
    schreier_sims_step(base2, bl2, GS2, m2, n, i, stab, mm, newbase, nbl, newGS, nm, num);
  }
  free(base2);
  free(GS2);
  free(stab);
}
```