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

```asm
<DFT8192>:
  endbr64
  mov    %rdi,%rcx
  lea    0x8000(%rdi),%rdx
  mov    %rdi,%rax
L164:
  movss  (%rax),%xmm0
  movss  0x4(%rax),%xmm3
  movss  0x8(%rax),%xmm1
  movss  0xc(%rax),%xmm4
  movaps %xmm0,%xmm2
  addss  %xmm3,%xmm2
  subss  %xmm3,%xmm0
  movaps %xmm1,%xmm3
  addss  %xmm4,%xmm3
  subss  %xmm4,%xmm1
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x8(%rax)
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,0x4(%rax)
  subss  %xmm1,%xmm0
  movss  %xmm0,0xc(%rax)
  add    $0x10,%rax
  cmp    %rdx,%rax
  jne    L164
  mov    %rcx,%rax
  movss  D2(%rip),%xmm4
L67:
  movss  (%rax),%xmm0
  movss  0x10(%rax),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%rax)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x10(%rax)
  movss  0x8(%rax),%xmm0
  movss  0x18(%rax),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,0x8(%rax)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x18(%rax)
  movss  0x4(%rax),%xmm1
  movss  0x14(%rax),%xmm0
  movss  0x1c(%rax),%xmm3
  movaps %xmm0,%xmm2
  addss  %xmm3,%xmm2
  mulss  %xmm4,%xmm2
  subss  %xmm3,%xmm0
  mulss  %xmm4,%xmm0
  movaps %xmm1,%xmm3
  addss  %xmm2,%xmm3
  movss  %xmm3,0x4(%rax)
  subss  %xmm2,%xmm1
  movss  %xmm1,0x14(%rax)
  movss  0xc(%rax),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,0xc(%rax)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x1c(%rax)
  add    $0x20,%rax
  cmp    %rdx,%rax
  jne    L67
  mov    %rcx,%r9
  mov    $0x0,%r10d
  lea    0x4000(%rsi),%r8
  jmp    L282
L115:
  add    $0x10,%r10d
  add    $0x40,%r9
  cmp    $0x2000,%r10d
  je     L121
L282:
  movss  (%r9),%xmm0
  movss  0x20(%r9),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r9)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x20(%r9)
  movss  0x10(%r9),%xmm0
  movss  0x30(%r9),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,0x10(%r9)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x30(%r9)
  lea    0x2800(%rsi),%rdi
  mov    %r9,%rdx
  mov    %r9,%rax
L230:
  movss  -0x2000(%rdi),%xmm6
  movss  (%rdi),%xmm5
  movss  0x4(%rax),%xmm2
  movss  0x1c(%rdx),%xmm1
  movss  0x24(%rax),%xmm0
  movss  0x3c(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,0x4(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x24(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,0x1c(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x3c(%rdx)
  add    $0x4,%rax
  sub    $0x4,%rdx
  add    $0x800,%rdi
  cmp    %r8,%rdi
  jne    L230
  jmp    L115
L121:
  mov    %rcx,%r9
  mov    $0x0,%r10d
  jmp    L225
L236:
  add    $0x20,%r10d
  sub    $0xffffffffffffff80,%r9
  cmp    $0x2000,%r10d
  je     L251
L225:
  movss  (%r9),%xmm0
  movss  0x40(%r9),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r9)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x40(%r9)
  movss  0x20(%r9),%xmm0
  movss  0x60(%r9),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,0x20(%r9)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x60(%r9)
  lea    0x2400(%rsi),%rdi
  mov    %r9,%rdx
  mov    %r9,%rax
L2:
  movss  -0x2000(%rdi),%xmm6
  movss  (%rdi),%xmm5
  movss  0x4(%rax),%xmm2
  movss  0x3c(%rdx),%xmm1
  movss  0x44(%rax),%xmm0
  movss  0x7c(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,0x4(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x44(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,0x3c(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x7c(%rdx)
  add    $0x4,%rax
  sub    $0x4,%rdx
  add    $0x400,%rdi
  cmp    %r8,%rdi
  jne    L2
  jmp    L236
L251:
  lea    0x40(%rcx),%r8
  mov    $0x0,%r9d
  jmp    L183
L100:
  add    $0x40,%r9d
  add    $0x100,%r8
  cmp    $0x2000,%r9d
  je     L8
L183:
  movss  -0x40(%r8),%xmm0
  movss  0x40(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,-0x40(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x40(%r8)
  movss  (%r8),%xmm0
  movss  0x80(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x80(%r8)
  lea    0x200(%rsi),%rdi
  lea    -0x3c(%r8),%rax
  lea    0x3c(%r8),%rdx
L101:
  movss  (%rdi),%xmm6
  movss  0x2000(%rdi),%xmm5
  movss  (%rax),%xmm2
  movss  (%rdx),%xmm1
  movss  0x80(%rax),%xmm0
  movss  0x80(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x80(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x80(%rdx)
  add    $0x200,%rdi
  add    $0x4,%rax
  sub    $0x4,%rdx
  cmp    %r8,%rax
  jne    L101
  jmp    L100
L8:
  lea    0x80(%rcx),%r8
  mov    $0x0,%r9d
  jmp    L13
L6:
  sub    $0xffffff80,%r9d
  add    $0x200,%r8
  cmp    $0x2000,%r9d
  je     L59
L13:
  movss  -0x80(%r8),%xmm0
  movss  0x80(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,-0x80(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x80(%r8)
  movss  (%r8),%xmm0
  movss  0x100(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x100(%r8)
  lea    0x100(%rsi),%rdi
  lea    -0x7c(%r8),%rax
  lea    0x7c(%r8),%rdx
L279:
  movss  (%rdi),%xmm6
  movss  0x2000(%rdi),%xmm5
  movss  (%rax),%xmm2
  movss  (%rdx),%xmm1
  movss  0x100(%rax),%xmm0
  movss  0x100(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x100(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x100(%rdx)
  add    $0x100,%rdi
  add    $0x4,%rax
  sub    $0x4,%rdx
  cmp    %r8,%rax
  jne    L279
  jmp    L6
L59:
  lea    0x100(%rcx),%r8
  mov    $0x0,%r9d
L242:
  movss  -0x100(%r8),%xmm0
  movss  0x100(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,-0x100(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x100(%r8)
  movss  (%r8),%xmm0
  movss  0x200(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x200(%r8)
  lea    0x80(%rsi),%rdi
  lea    -0xfc(%r8),%rax
  lea    0xfc(%r8),%rdx
L46:
  movss  (%rdi),%xmm6
  movss  0x2000(%rdi),%xmm5
  movss  (%rax),%xmm2
  movss  (%rdx),%xmm1
  movss  0x200(%rax),%xmm0
  movss  0x200(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x200(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x200(%rdx)
  sub    $0xffffffffffffff80,%rdi
  add    $0x4,%rax
  sub    $0x4,%rdx
  cmp    %r8,%rax
  jne    L46
  add    $0x100,%r9d
  add    $0x400,%r8
  cmp    $0x2000,%r9d
  jne    L242
  lea    0x200(%rcx),%r8
  mov    $0x0,%r9d
L172:
  movss  -0x200(%r8),%xmm0
  movss  0x200(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,-0x200(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x200(%r8)
  movss  (%r8),%xmm0
  movss  0x400(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x400(%r8)
  lea    0x40(%rsi),%rdi
  lea    -0x1fc(%r8),%rax
  lea    0x1fc(%r8),%rdx
L252:
  movss  (%rdi),%xmm6
  movss  0x2000(%rdi),%xmm5
  movss  (%rax),%xmm2
  movss  (%rdx),%xmm1
  movss  0x400(%rax),%xmm0
  movss  0x400(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x400(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x400(%rdx)
  add    $0x40,%rdi
  add    $0x4,%rax
  sub    $0x4,%rdx
  cmp    %r8,%rax
  jne    L252
  add    $0x200,%r9d
  add    $0x800,%r8
  cmp    $0x2000,%r9d
  jne    L172
  lea    0x400(%rcx),%r8
  mov    $0x0,%r9d
L200:
  movss  -0x400(%r8),%xmm0
  movss  0x400(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,-0x400(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x400(%r8)
  movss  (%r8),%xmm0
  movss  0x800(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x800(%r8)
  lea    0x20(%rsi),%rdi
  lea    -0x3fc(%r8),%rax
  lea    0x3fc(%r8),%rdx
L19:
  movss  (%rdi),%xmm6
  movss  0x2000(%rdi),%xmm5
  movss  (%rax),%xmm2
  movss  (%rdx),%xmm1
  movss  0x800(%rax),%xmm0
  movss  0x800(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x800(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x800(%rdx)
  add    $0x20,%rdi
  add    $0x4,%rax
  sub    $0x4,%rdx
  cmp    %r8,%rax
  jne    L19
  add    $0x400,%r9d
  add    $0x1000,%r8
  cmp    $0x2000,%r9d
  jne    L200
  lea    0x800(%rcx),%r8
  mov    $0x0,%r9d
L1:
  movss  -0x800(%r8),%xmm0
  movss  0x800(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,-0x800(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x800(%r8)
  movss  (%r8),%xmm0
  movss  0x1000(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x1000(%r8)
  lea    0x10(%rsi),%rdi
  lea    -0x7fc(%r8),%rax
  lea    0x7fc(%r8),%rdx
L93:
  movss  (%rdi),%xmm6
  movss  0x2000(%rdi),%xmm5
  movss  (%rax),%xmm2
  movss  (%rdx),%xmm1
  movss  0x1000(%rax),%xmm0
  movss  0x1000(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x1000(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x1000(%rdx)
  add    $0x10,%rdi
  add    $0x4,%rax
  sub    $0x4,%rdx
  cmp    %r8,%rax
  jne    L93
  add    $0x800,%r9d
  add    $0x2000,%r8
  cmp    $0x2000,%r9d
  jne    L1
  lea    0x1000(%rcx),%r8
  mov    $0x0,%r9d
L167:
  movss  -0x1000(%r8),%xmm0
  movss  0x1000(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,-0x1000(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x1000(%r8)
  movss  (%r8),%xmm0
  movss  0x2000(%r8),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%r8)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x2000(%r8)
  lea    0x8(%rsi),%rdi
  lea    -0xffc(%r8),%rax
  lea    0xffc(%r8),%rdx
L182:
  movss  (%rdi),%xmm6
  movss  0x2000(%rdi),%xmm5
  movss  (%rax),%xmm2
  movss  (%rdx),%xmm1
  movss  0x2000(%rax),%xmm0
  movss  0x2000(%rdx),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,(%rax)
  subss  %xmm3,%xmm2
  movss  %xmm2,0x2000(%rax)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rdx)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x2000(%rdx)
  add    $0x8,%rdi
  add    $0x4,%rax
  sub    $0x4,%rdx
  cmp    %r8,%rax
  jne    L182
  add    $0x1000,%r9d
  add    $0x4000,%r8
  cmp    $0x2000,%r9d
  jne    L167
  movss  (%rcx),%xmm0
  movss  0x4000(%rcx),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,(%rcx)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x4000(%rcx)
  movss  0x2000(%rcx),%xmm0
  movss  0x6000(%rcx),%xmm1
  movaps %xmm0,%xmm2
  addss  %xmm1,%xmm2
  movss  %xmm2,0x2000(%rcx)
  subss  %xmm1,%xmm0
  movss  %xmm0,0x6000(%rcx)
  lea    0x3ffc(%rcx),%rax
  add    $0x2004,%rsi
  lea    0x4004(%rcx),%rdx
  add    $0x2000,%rcx
L102:
  movss  -0x2000(%rsi),%xmm6
  movss  (%rsi),%xmm5
  movss  -0x4000(%rdx),%xmm2
  movss  (%rax),%xmm1
  movss  (%rdx),%xmm0
  movss  0x4000(%rax),%xmm4
  movaps %xmm0,%xmm3
  mulss  %xmm5,%xmm3
  movaps %xmm4,%xmm7
  mulss  %xmm6,%xmm7
  addss  %xmm7,%xmm3
  mulss  %xmm6,%xmm0
  mulss  %xmm5,%xmm4
  subss  %xmm4,%xmm0
  movaps %xmm2,%xmm4
  addss  %xmm3,%xmm4
  movss  %xmm4,-0x4000(%rdx)
  subss  %xmm3,%xmm2
  movss  %xmm2,(%rdx)
  movaps %xmm1,%xmm2
  addss  %xmm0,%xmm2
  movss  %xmm2,(%rax)
  subss  %xmm0,%xmm1
  movss  %xmm1,0x4000(%rax)
  sub    $0x4,%rax
  add    $0x4,%rsi
  add    $0x4,%rdx
  cmp    %rax,%rcx
  jne    L102
  ret
```

tool_calls: name: retrieve_data
arguments: data_tag: D2
datatype: byte[4]

tool: {"D2": [0xf3,0x04,0x35,0x3f]}

assistant: ```c
void DFT8192(float *A, const float *sinTab) {
  int i, j, theta;
  float alpha, beta, beta1, beta2, y0, y1, y2, y3;
  for (i = 0; i < 8192; i += 4) {
    alpha = A[i];
    beta = A[i + 1];
    beta1 = A[i + 2];
    beta2 = A[i + 3];
    y0 = alpha + beta;
    y1 = alpha - beta;
    y2 = beta1 + beta2;
    y3 = beta1 - beta2;
    A[i] = y0 + y2;
    A[i + 2] = y0 - y2;
    A[i + 1] = y1 + y3;
    A[i + 3] = y1 - y3;
  }
  for (i = 0; i < 8192; i += 8) {
    alpha = A[i];
    beta = A[i + 4];
    A[i] = alpha + beta;
    A[i + 4] = alpha - beta;
    alpha = A[i + 2];
    beta = A[i + 6];
    A[i + 2] = alpha + beta;
    A[i + 6] = alpha - beta;
    alpha = A[i + 1];
    beta1 = 0.70710678118654752440084436210485f * (A[i + 5] + A[i + 7]);
    beta2 = 0.70710678118654752440084436210485f * (A[i + 5] - A[i + 7]);
    A[i + 1] = alpha + beta1;
    A[i + 5] = alpha - beta1;
    alpha = A[i + 3];
    A[i + 3] = alpha + beta2;
    A[i + 7] = alpha - beta2;
  }
  for (i = 0; i < 8192; i += 16) {
    theta = 512;
    alpha = A[i];
    beta = A[i + 8];
    A[i] = alpha + beta;
    A[i + 8] = alpha - beta;
    alpha = A[i + 4];
    beta = A[i + 12];
    A[i + 4] = alpha + beta;
    A[i + 12] = alpha - beta;
    for (j = 1; j < 4; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 8];
      beta1 = A[i + j + 8] * y1 + A[i - j + 16] * y0;
      beta2 = A[i + j + 8] * y0 - A[i - j + 16] * y1;
      theta += 512;
      A[i + j] = alpha + beta1;
      A[i + j + 8] = alpha - beta1;
      A[i - j + 8] = beta + beta2;
      A[i - j + 16] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 32) {
    theta = 256;
    alpha = A[i];
    beta = A[i + 16];
    A[i] = alpha + beta;
    A[i + 16] = alpha - beta;
    alpha = A[i + 8];
    beta = A[i + 24];
    A[i + 8] = alpha + beta;
    A[i + 24] = alpha - beta;
    for (j = 1; j < 8; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 16];
      beta1 = A[i + j + 16] * y1 + A[i - j + 32] * y0;
      beta2 = A[i + j + 16] * y0 - A[i - j + 32] * y1;
      theta += 256;
      A[i + j] = alpha + beta1;
      A[i + j + 16] = alpha - beta1;
      A[i - j + 16] = beta + beta2;
      A[i - j + 32] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 64) {
    theta = 128;
    alpha = A[i];
    beta = A[i + 32];
    A[i] = alpha + beta;
    A[i + 32] = alpha - beta;
    alpha = A[i + 16];
    beta = A[i + 48];
    A[i + 16] = alpha + beta;
    A[i + 48] = alpha - beta;
    for (j = 1; j < 16; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 32];
      beta1 = A[i + j + 32] * y1 + A[i - j + 64] * y0;
      beta2 = A[i + j + 32] * y0 - A[i - j + 64] * y1;
      theta += 128;
      A[i + j] = alpha + beta1;
      A[i + j + 32] = alpha - beta1;
      A[i - j + 32] = beta + beta2;
      A[i - j + 64] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 128) {
    theta = 64;
    alpha = A[i];
    beta = A[i + 64];
    A[i] = alpha + beta;
    A[i + 64] = alpha - beta;
    alpha = A[i + 32];
    beta = A[i + 96];
    A[i + 32] = alpha + beta;
    A[i + 96] = alpha - beta;
    for (j = 1; j < 32; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 64];
      beta1 = A[i + j + 64] * y1 + A[i - j + 128] * y0;
      beta2 = A[i + j + 64] * y0 - A[i - j + 128] * y1;
      theta += 64;
      A[i + j] = alpha + beta1;
      A[i + j + 64] = alpha - beta1;
      A[i - j + 64] = beta + beta2;
      A[i - j + 128] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 256) {
    theta = 32;
    alpha = A[i];
    beta = A[i + 128];
    A[i] = alpha + beta;
    A[i + 128] = alpha - beta;
    alpha = A[i + 64];
    beta = A[i + 192];
    A[i + 64] = alpha + beta;
    A[i + 192] = alpha - beta;
    for (j = 1; j < 64; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 128];
      beta1 = A[i + j + 128] * y1 + A[i - j + 256] * y0;
      beta2 = A[i + j + 128] * y0 - A[i - j + 256] * y1;
      theta += 32;
      A[i + j] = alpha + beta1;
      A[i + j + 128] = alpha - beta1;
      A[i - j + 128] = beta + beta2;
      A[i - j + 256] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 512) {
    theta = 16;
    alpha = A[i];
    beta = A[i + 256];
    A[i] = alpha + beta;
    A[i + 256] = alpha - beta;
    alpha = A[i + 128];
    beta = A[i + 384];
    A[i + 128] = alpha + beta;
    A[i + 384] = alpha - beta;
    for (j = 1; j < 128; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 256];
      beta1 = A[i + j + 256] * y1 + A[i - j + 512] * y0;
      beta2 = A[i + j + 256] * y0 - A[i - j + 512] * y1;
      theta += 16;
      A[i + j] = alpha + beta1;
      A[i + j + 256] = alpha - beta1;
      A[i - j + 256] = beta + beta2;
      A[i - j + 512] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 1024) {
    theta = 8;
    alpha = A[i];
    beta = A[i + 512];
    A[i] = alpha + beta;
    A[i + 512] = alpha - beta;
    alpha = A[i + 256];
    beta = A[i + 768];
    A[i + 256] = alpha + beta;
    A[i + 768] = alpha - beta;
    for (j = 1; j < 256; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 512];
      beta1 = A[i + j + 512] * y1 + A[i - j + 1024] * y0;
      beta2 = A[i + j + 512] * y0 - A[i - j + 1024] * y1;
      theta += 8;
      A[i + j] = alpha + beta1;
      A[i + j + 512] = alpha - beta1;
      A[i - j + 512] = beta + beta2;
      A[i - j + 1024] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 2048) {
    theta = 4;
    alpha = A[i];
    beta = A[i + 1024];
    A[i] = alpha + beta;
    A[i + 1024] = alpha - beta;
    alpha = A[i + 512];
    beta = A[i + 1536];
    A[i + 512] = alpha + beta;
    A[i + 1536] = alpha - beta;
    for (j = 1; j < 512; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 1024];
      beta1 = A[i + j + 1024] * y1 + A[i - j + 2048] * y0;
      beta2 = A[i + j + 1024] * y0 - A[i - j + 2048] * y1;
      theta += 4;
      A[i + j] = alpha + beta1;
      A[i + j + 1024] = alpha - beta1;
      A[i - j + 1024] = beta + beta2;
      A[i - j + 2048] = beta - beta2;
    }
  }
  for (i = 0; i < 8192; i += 4096) {
    theta = 2;
    alpha = A[i];
    beta = A[i + 2048];
    A[i] = alpha + beta;
    A[i + 2048] = alpha - beta;
    alpha = A[i + 1024];
    beta = A[i + 3072];
    A[i + 1024] = alpha + beta;
    A[i + 3072] = alpha - beta;
    for (j = 1; j < 1024; j++) {
      y0 = sinTab[theta];
      y1 = sinTab[theta + 2048];
      alpha = A[i + j];
      beta = A[i - j + 2048];
      beta1 = A[i + j + 2048] * y1 + A[i - j + 4096] * y0;
      beta2 = A[i + j + 2048] * y0 - A[i - j + 4096] * y1;
      theta += 2;
      A[i + j] = alpha + beta1;
      A[i + j + 2048] = alpha - beta1;
      A[i - j + 2048] = beta + beta2;
      A[i - j + 4096] = beta - beta2;
    }
  }
  theta = 1;
  alpha = A[0];
  beta = A[4096];
  A[0] = alpha + beta;
  A[4096] = alpha - beta;
  alpha = A[2048];
  beta = A[6144];
  A[2048] = alpha + beta;
  A[6144] = alpha - beta;
  for (j = 1; j < 2048; j++) {
    y0 = sinTab[theta];
    y1 = sinTab[theta + 2048];
    alpha = A[j];
    beta = A[-j + 4096];
    beta1 = A[j + 4096] * y1 + A[-j + 8192] * y0;
    beta2 = A[j + 4096] * y0 - A[-j + 8192] * y1;
    theta += 1;
    A[j] = alpha + beta1;
    A[j + 4096] = alpha - beta1;
    A[-j + 4096] = beta + beta2;
    A[-j + 8192] = beta - beta2;
  }
}
```