user: What would the C source look like for the assembly code provided here:

```asm
<lwe_key_gen_server_gen_a>:
  endbr64
  push   %r15
  push   %r14
  mov    %rsi,%r14
  push   %r13
  mov    %rcx,%r13
  push   %r12
  push   %rbp
  push   %rbx
  mov    %rdx,%rbx
  sub    $0x38,%rsp
  mov    %rdi,0x8(%rsp)
  mov    %fs:0x28,%rax
  mov    %rax,0x28(%rsp)
  xor    %eax,%eax
  call   <EVP_CIPHER_CTX_new@plt>
  test   %rax,%rax
  je     L238
  mov    %rax,%r12
  xor    %eax,%eax
  call   <EVP_aes_128_ecb@plt>
  xor    %r8d,%r8d
  xor    %edx,%edx
  mov    %r14,%rcx
  mov    %eax,%esi
  mov    %r12,%rdi
  call   <EVP_EncryptInit_ex@plt>
  cmp    $0x1,%eax
  je     L64
  mov    %r12,%rdi
  call   <EVP_CIPHER_CTX_free@plt>
L238:
  xor    %r11d,%r11d
L101:
  mov    0x28(%rsp),%rax
  sub    %fs:0x28,%rax
  jne    L158
  add    $0x38,%rsp
  mov    %r11d,%eax
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
L64:
  xor    %esi,%esi
  mov    %r12,%rdi
  call   <EVP_CIPHER_CTX_set_padding@plt>
  mov    $0x5e00,%edi
  call   <OPENSSL_malloc@plt>
  mov    %rax,%rbp
  test   %rax,%rax
  je     L238
  lea    0x20(%r13),%rax
  cmp    %rbp,%rax
  jbe    L16
  lea    0x20(%rbp),%rax
  cmp    %rax,%r13
  jb     L144
L16:
  mov    %r13,%rdx
  lea    0x5e00(%rbp),%rcx
  mov    %rbp,%rax
  sub    %rbp,%rdx
  xchg   %ax,%ax
L174:
  movdqu 0x10(%rdx,%rax,1),%xmm0
  movdqu (%rdx,%rax,1),%xmm4
  add    $0x20,%rax
  movups %xmm4,-0x20(%rax)
  movups %xmm0,-0x10(%rax)
  cmp    %rax,%rcx
  jne    L174
L155:
  mov    $0xbc0,%edi
  call   <OPENSSL_malloc@plt>
  mov    %rax,%r15
  test   %rax,%rax
  je     L238
  mov    $0x5e00,%edi
  call   <OPENSSL_malloc@plt>
  mov    %rax,%r13
  test   %rax,%rax
  je     L238
  lea    0x5e00(%rax),%rax
  lea    0x5e00(%rbx),%rdx
  cmp    %rax,%rbx
  jae    L15
  cmp    %rdx,%r13
  jb     L230
L15:
  mov    %r13,%rax
L49:
  movdqu (%rbx),%xmm0
  movdqu 0x10(%rbx),%xmm6
  sub    $0xffffffffffffff80,%rbx
  add    $0x10,%rax
  movdqu -0x60(%rbx),%xmm3
  movdqu -0x40(%rbx),%xmm1
  movdqa %xmm0,%xmm4
  shufps $0xdd,%xmm6,%xmm0
  movdqu -0x20(%rbx),%xmm2
  movdqu -0x10(%rbx),%xmm9
  shufps $0x88,%xmm6,%xmm4
  movdqu -0x50(%rbx),%xmm6
  movdqa %xmm3,%xmm7
  movdqa %xmm1,%xmm5
  movdqa %xmm4,%xmm8
  shufps $0x88,%xmm6,%xmm7
  shufps $0xdd,%xmm6,%xmm3
  movdqu -0x30(%rbx),%xmm6
  shufps $0xdd,%xmm7,%xmm4
  shufps $0x88,%xmm7,%xmm8
  shufps $0x88,%xmm6,%xmm5
  shufps $0xdd,%xmm6,%xmm1
  movdqa %xmm5,%xmm7
  movdqa %xmm2,%xmm6
  shufps $0x88,%xmm9,%xmm6
  shufps $0x88,%xmm6,%xmm7
  shufps $0xdd,%xmm6,%xmm5
  movdqa %xmm0,%xmm6
  shufps $0x88,%xmm3,%xmm6
  shufps $0xdd,%xmm3,%xmm0
  movdqa %xmm1,%xmm3
  shufps $0xdd,%xmm9,%xmm2
  shufps $0x88,%xmm2,%xmm3
  shufps $0xdd,%xmm2,%xmm1
  movdqa %xmm8,%xmm2
  shufps $0x88,%xmm7,%xmm2
  movups %xmm2,-0x10(%rax)
  movdqa %xmm6,%xmm2
  shufps $0xdd,%xmm3,%xmm6
  shufps $0x88,%xmm3,%xmm2
  movups %xmm2,0xbb0(%rax)
  movdqa %xmm4,%xmm2
  shufps $0xdd,%xmm5,%xmm4
  shufps $0x88,%xmm5,%xmm2
  movups %xmm2,0x1770(%rax)
  movdqa %xmm0,%xmm2
  shufps $0xdd,%xmm1,%xmm0
  shufps $0x88,%xmm1,%xmm2
  movups %xmm2,0x2330(%rax)
  movdqa %xmm8,%xmm2
  shufps $0xdd,%xmm7,%xmm2
  movups %xmm6,0x3ab0(%rax)
  movups %xmm2,0x2ef0(%rax)
  movups %xmm4,0x4670(%rax)
  movups %xmm0,0x5230(%rax)
  cmp    %rbx,%rdx
  jne    L49
L85:
  lea    0x24(%rsp),%rax
  movq   $0x0,(%rsp)
  lea    0xbc0(%r15),%rbx
  mov    %rax,0x10(%rsp)
  mov    %r13,%rax
  sub    %r15,%rax
  lea    0x5e00(%rax),%r14
L97:
  movd   (%rsp),%xmm1
  mov    $0xbc0,%edx
  xor    %esi,%esi
  mov    %r15,%rdi
  movd   %xmm1,0x1c(%rsp)
  call   <memset@plt>
  movd   0x1c(%rsp),%xmm1
  mov    %r15,%rdx
  xor    %eax,%eax
  nopw   0x0(%rax,%rax,1)
L98:
  movd   %eax,%xmm7
  movdqa %xmm1,%xmm0
  add    $0x8,%eax
  add    $0x20,%rdx
  punpckldq %xmm7,%xmm0
  movq   %xmm0,-0x20(%rdx)
  cmp    $0x2f0,%eax
  jne    L98
  mov    0x10(%rsp),%rdx
  mov    %r15,%rcx
  mov    %r15,%rsi
  mov    %r12,%rdi
  mov    $0xbc0,%r8d
  call   <EVP_EncryptUpdate@plt>
  cmp    $0x1,%eax
  jne    L207
  cmpl   $0xbc0,0x24(%rsp)
  jne    L207
  mov    0x10(%rsp),%rdx
  mov    %r15,%rsi
  mov    %r12,%rdi
  call   <EVP_EncryptFinal_ex@plt>
  mov    %eax,%r11d
  cmp    $0x1,%eax
  jne    L207
  mov    (%rsp),%rcx
  mov    %r13,%rdx
  sub    %r15,%rdx
  shl    $0x5,%rcx
  add    %rbp,%rcx
L105:
  mov    %r15,%rax
  pxor   %xmm3,%xmm3
  nopl   0x0(%rax,%rax,1)
L84:
  movdqu (%rdx,%rax,1),%xmm0
  movdqu (%rax),%xmm2
  movdqu (%rdx,%rax,1),%xmm1
  movdqu (%rax),%xmm5
  add    $0x10,%rax
  psrlq  $0x20,%xmm0
  psrlq  $0x20,%xmm2
  pmuludq %xmm5,%xmm1
  pmuludq %xmm2,%xmm0
  pshufd $0x8,%xmm1,%xmm1
  pshufd $0x8,%xmm0,%xmm0
  punpckldq %xmm0,%xmm1
  paddd  %xmm1,%xmm3
  cmp    %rax,%rbx
  jne    L84
  movdqa %xmm3,%xmm0
  add    $0xbc0,%rdx
  add    $0x4,%rcx
  psrldq $0x8,%xmm0
  paddd  %xmm0,%xmm3
  movdqa %xmm3,%xmm0
  psrldq $0x4,%xmm0
  paddd  %xmm0,%xmm3
  movd   %xmm3,%eax
  add    -0x4(%rcx),%eax
  mov    %eax,%esi
  sar    $0x1f,%esi
  shr    $0x11,%esi
  add    %esi,%eax
  and    $0x7fff,%eax
  sub    %esi,%eax
  mov    %eax,-0x4(%rcx)
  cmp    %rdx,%r14
  jne    L105
  addq   $0x1,(%rsp)
  mov    (%rsp),%rax
  cmp    $0x2f0,%rax
  jne    L97
  mov    0x8(%rsp),%rdi
  mov    $0xf,%r8d
  mov    %rbp,%rdx
  mov    %r11d,(%rsp)
  mov    $0x1780,%ecx
  mov    $0x2c10,%esi
  call   <lwe_pack@plt>
  mov    (%rsp),%r11d
L75:
  mov    %r12,%rdi
  mov    %r11d,(%rsp)
  call   <EVP_CIPHER_CTX_free@plt>
  mov    $0x5e00,%esi
  mov    %rbp,%rdi
  call   <OPENSSL_cleanse@plt>
  mov    %rbp,%rdi
  call   <OPENSSL_free@plt>
  mov    $0xbc0,%esi
  mov    %r15,%rdi
  call   <OPENSSL_cleanse@plt>
  mov    %r15,%rdi
  call   <OPENSSL_free@plt>
  mov    $0x5e00,%esi
  mov    %r13,%rdi
  call   <OPENSSL_cleanse@plt>
  mov    %r13,%rdi
  call   <OPENSSL_free@plt>
  mov    (%rsp),%r11d
  jmp    L101
L207:
  xor    %r11d,%r11d
  jmp    L75
L144:
  mov    %r13,%rax
  lea    0x5e00(%r13),%rsi
  mov    %rbp,%rdx
L74:
  mov    (%rax),%ecx
  add    $0x20,%rax
  add    $0x20,%rdx
  mov    %ecx,-0x20(%rdx)
  mov    -0x1c(%rax),%ecx
  mov    %ecx,-0x1c(%rdx)
  mov    -0x18(%rax),%ecx
  mov    %ecx,-0x18(%rdx)
  mov    -0x14(%rax),%ecx
  mov    %ecx,-0x14(%rdx)
  mov    -0x10(%rax),%ecx
  mov    %ecx,-0x10(%rdx)
  mov    -0xc(%rax),%ecx
  mov    %ecx,-0xc(%rdx)
  mov    -0x8(%rax),%ecx
  mov    %ecx,-0x8(%rdx)
  mov    -0x4(%rax),%ecx
  mov    %ecx,-0x4(%rdx)
  cmp    %rsi,%rax
  jne    L74
  jmp    L155
L230:
  lea    0xbc0(%r13),%rcx
  mov    %r13,%rax
L146:
  mov    (%rbx),%edx
  add    $0x4,%rax
  add    $0x20,%rbx
  mov    %edx,-0x4(%rax)
  mov    -0x1c(%rbx),%edx
  mov    %edx,0xbbc(%rax)
  mov    -0x18(%rbx),%edx
  mov    %edx,0x177c(%rax)
  mov    -0x14(%rbx),%edx
  mov    %edx,0x233c(%rax)
  mov    -0x10(%rbx),%edx
  mov    %edx,0x2efc(%rax)
  mov    -0xc(%rbx),%edx
  mov    %edx,0x3abc(%rax)
  mov    -0x8(%rbx),%edx
  mov    %edx,0x467c(%rax)
  mov    -0x4(%rbx),%edx
  mov    %edx,0x523c(%rax)
  cmp    %rax,%rcx
  jne    L146
  jmp    L85
L158:
  call   <__stack_chk_fail@plt>
```

assistant: ```c
int lwe_key_gen_server_gen_a(unsigned char *out, const uint8_t *seed, const uint16_t *s, const uint16_t *e) {
  int i, j, k;
  int ret = 0;
  uint16_t *out_unpacked = NULL;
  uint16_t *a_row = NULL;
  uint16_t *s_transpose = NULL;
  EVP_CIPHER_CTX *aes_ctx = EVP_CIPHER_CTX_new();
  if (aes_ctx == NULL) {
    goto err;
  }
  if (1 != EVP_EncryptInit_ex(aes_ctx, EVP_aes_128_ecb(), NULL, seed, NULL)) {
    goto err;
  }
  EVP_CIPHER_CTX_set_padding(aes_ctx, 0);
  out_unpacked = (uint16_t *)OPENSSL_malloc(8 * 752 * sizeof(int16_t));
  if (out_unpacked == NULL) {
    return 0;
  }
  for (i = 0; i < 752; i++)
    for (j = 0; j < 8; j++) {
      out_unpacked[i * 8 + j] = e[i * 8 + j];
    }
  size_t a_rowlen = 752 * sizeof(int16_t);
  a_row = (uint16_t *)OPENSSL_malloc(a_rowlen);
  if (a_row == NULL) {
    return 0;
  }
  s_transpose = (uint16_t *)OPENSSL_malloc(8 * 752 * sizeof(int16_t));
  if (s_transpose == NULL) {
    return 0;
  }
  for (j = 0; j < 752; j++)
    for (k = 0; k < 8; k++) {
      s_transpose[k * 752 + j] = s[j * 8 + k];
    }
  for (i = 0; i < 752; i++) {
    memset(a_row, 0, a_rowlen);
    for (j = 0; j < 752; j += 8) {
      a_row[j] = i;
      a_row[j + 1] = j;
    }
    int outlen;
    if (1 != EVP_EncryptUpdate(aes_ctx, (unsigned char *)a_row, &outlen, (unsigned char *)a_row, a_rowlen) || ((size_t)outlen != a_rowlen)) {
      goto err;
    }
    if (1 != EVP_EncryptFinal_ex(aes_ctx, (unsigned char *)a_row, &outlen)) {
      goto err;
    }
    for (k = 0; k < 8; k++) {
      uint16_t sum = 0;
      for (j = 0; j < 752; j++) {
        sum += a_row[j] * s_transpose[k * 752 + j];
      }
      out_unpacked[i * 8 + k] += sum;
      out_unpacked[i * 8 + k] %= (1 << 15);
    }
  }
  lwe_pack(out, (((8 * 752 * 15) + (8) - 1) / 8), out_unpacked, 752 * 8, 15);
  ret = 1;
err:
  if (aes_ctx != NULL) {
    EVP_CIPHER_CTX_free(aes_ctx);
  }
  if (out_unpacked != NULL) {
    OPENSSL_cleanse(out_unpacked, 8 * 752 * sizeof(uint16_t));
    OPENSSL_free(out_unpacked);
  }
  if (a_row != NULL) {
    OPENSSL_cleanse(a_row, a_rowlen);
    OPENSSL_free(a_row);
  }
  if (s_transpose != NULL) {
    OPENSSL_cleanse(s_transpose, 8 * 752 * sizeof(uint16_t));
    OPENSSL_free(s_transpose);
  }
  return ret;
}
```