user: Please show me the C implementation that matches the assembly code listed below:

```asm
<HO_54>:
  endbr64
  push   %r15
  push   %r14
  push   %r13
  push   %r12
  push   %rbp
  push   %rbx
  sub    $0x188,%rsp
  movsd  %xmm1,(%rsp)
  movsd  D434(%rip),%xmm1
  movsd  %xmm0,0x8(%rsp)
  call   <pow@plt>
  movsd  D70(%rip),%xmm1
  movq   %xmm0,%rbx
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  movsd  D822(%rip),%xmm1
  movsd  %xmm0,0x178(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D181(%rip),%xmm9
  movsd  %xmm0,0x10(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm9,%xmm1
  call   <pow@plt>
  movsd  D341(%rip),%xmm1
  movsd  %xmm0,0x170(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D118(%rip),%xmm1
  movsd  %xmm0,0x18(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  movsd  D343(%rip),%xmm1
  movq   %xmm0,%r14
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D494(%rip),%xmm15
  movsd  %xmm0,0x20(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm15,%xmm1
  call   <pow@plt>
  movsd  D145(%rip),%xmm1
  movsd  %xmm0,0x168(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D243(%rip),%xmm1
  movsd  %xmm0,0x28(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  movsd  D462(%rip),%xmm1
  movq   %xmm0,%r15
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D417(%rip),%xmm14
  movsd  %xmm0,0x30(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm14,%xmm1
  call   <pow@plt>
  movsd  D717(%rip),%xmm1
  movsd  %xmm0,0x160(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D437(%rip),%xmm1
  movsd  %xmm0,0x38(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  movsd  D489(%rip),%xmm1
  movq   %xmm0,%rbp
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D504(%rip),%xmm13
  movsd  %xmm0,0x40(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm13,%xmm1
  call   <pow@plt>
  movsd  D406(%rip),%xmm1
  movsd  %xmm0,0x158(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D206(%rip),%xmm1
  movsd  %xmm0,0x48(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  movsd  D523(%rip),%xmm1
  movsd  %xmm0,0x150(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D722(%rip),%xmm12
  movsd  %xmm0,0x50(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm12,%xmm1
  call   <pow@plt>
  movsd  D528(%rip),%xmm1
  movsd  %xmm0,0x148(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D294(%rip),%xmm1
  movsd  %xmm0,0x58(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  movsd  D23(%rip),%xmm1
  movq   %xmm0,%r12
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D152(%rip),%xmm11
  movsd  %xmm0,0x60(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm11,%xmm1
  call   <pow@plt>
  movsd  D174(%rip),%xmm1
  movq   %xmm0,%r13
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D663(%rip),%xmm1
  movsd  %xmm0,0x68(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  movsd  D757(%rip),%xmm1
  movsd  %xmm0,0x70(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D371(%rip),%xmm10
  movsd  %xmm0,0x78(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm10,%xmm1
  call   <pow@plt>
  movsd  D816(%rip),%xmm1
  movsd  %xmm0,0x80(%rsp)
  movsd  (%rsp),%xmm0
  call   <pow@plt>
  movsd  D184(%rip),%xmm1
  movsd  %xmm0,0x88(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  mov    D181(%rip),%rax
  movsd  %xmm0,0x90(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D291(%rip),%xmm9
  movsd  %xmm0,0x98(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm9,%xmm1
  call   <pow@plt>
  mov    D494(%rip),%rax
  movsd  %xmm0,0xa0(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D530(%rip),%xmm1
  movsd  %xmm0,0xa8(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  mov    D417(%rip),%rax
  movsd  %xmm0,0x140(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D468(%rip),%xmm14
  movsd  %xmm0,0xb0(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm14,%xmm1
  call   <pow@plt>
  mov    D504(%rip),%rax
  movsd  %xmm0,0xb8(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D201(%rip),%xmm1
  movsd  %xmm0,0xc0(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  mov    D722(%rip),%rax
  movsd  %xmm0,0x138(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D846(%rip),%xmm12
  movsd  %xmm0,0xc8(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm12,%xmm1
  call   <pow@plt>
  mov    D152(%rip),%rax
  movsd  %xmm0,0xd0(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D549(%rip),%xmm1
  movsd  %xmm0,0xd8(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  mov    D371(%rip),%rax
  movsd  %xmm0,0x130(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D453(%rip),%xmm10
  movsd  %xmm0,0xe0(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm10,%xmm1
  call   <pow@plt>
  mov    D291(%rip),%rax
  movsd  %xmm0,0xe8(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D668(%rip),%xmm1
  movsd  %xmm0,0xf0(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  mov    D468(%rip),%rax
  movsd  %xmm0,0xf8(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D647(%rip),%xmm9
  movsd  %xmm0,0x100(%rsp)
  movsd  0x8(%rsp),%xmm0
  movapd %xmm9,%xmm1
  call   <pow@plt>
  mov    D846(%rip),%rax
  movsd  %xmm0,0x128(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  D263(%rip),%xmm1
  movsd  %xmm0,0x108(%rsp)
  movsd  0x8(%rsp),%xmm0
  call   <pow@plt>
  mov    D453(%rip),%rax
  movsd  %xmm0,0x120(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  mov    D647(%rip),%rax
  movsd  %xmm0,0x110(%rsp)
  movsd  (%rsp),%xmm0
  movq   %rax,%xmm1
  call   <pow@plt>
  movsd  0x8(%rsp),%xmm5
  movsd  (%rsp),%xmm6
  xorpd  D208(%rip),%xmm5
  movsd  %xmm0,0x118(%rsp)
  movapd %xmm5,%xmm0
  mulsd  %xmm6,%xmm0
  mulsd  %xmm6,%xmm0
  mulsd  D329(%rip),%xmm0
  call   <exp@plt>
  movq   %r14,%xmm1
  movsd  0x178(%rsp),%xmm2
  movsd  0x170(%rsp),%xmm7
  mulsd  D0(%rip),%xmm2
  movsd  0x168(%rsp),%xmm6
  mulsd  D644(%rip),%xmm7
  movsd  0x160(%rsp),%xmm5
  mulsd  0x10(%rsp),%xmm2
  movsd  0x158(%rsp),%xmm4
  mulsd  0x18(%rsp),%xmm7
  movsd  0x150(%rsp),%xmm8
  mulsd  D848(%rip),%xmm1
  movsd  0x148(%rsp),%xmm3
  mulsd  0x20(%rsp),%xmm1
  mulsd  D336(%rip),%xmm6
  mulsd  0x28(%rsp),%xmm6
  subsd  %xmm7,%xmm2
  mulsd  D666(%rip),%xmm5
  mulsd  0x38(%rsp),%xmm5
  mulsd  D683(%rip),%xmm4
  addsd  %xmm1,%xmm2
  movq   %r15,%xmm1
  mulsd  D440(%rip),%xmm1
  mulsd  0x30(%rsp),%xmm1
  subsd  %xmm6,%xmm2
  mulsd  0x48(%rsp),%xmm4
  mulsd  D124(%rip),%xmm8
  mulsd  0x50(%rsp),%xmm8
  mulsd  D322(%rip),%xmm3
  addsd  %xmm1,%xmm2
  mulsd  0x58(%rsp),%xmm3
  movq   %rbp,%xmm1
  mulsd  D597(%rip),%xmm1
  mulsd  0x40(%rsp),%xmm1
  subsd  %xmm5,%xmm2
  addsd  %xmm1,%xmm2
  movq   %r12,%xmm1
  mulsd  D17(%rip),%xmm1
  mulsd  0x60(%rsp),%xmm1
  subsd  %xmm4,%xmm2
  addsd  %xmm8,%xmm2
  subsd  %xmm3,%xmm2
  addsd  %xmm1,%xmm2
  movq   %r13,%xmm1
  mulsd  D379(%rip),%xmm1
  mulsd  0x68(%rsp),%xmm1
  subsd  %xmm1,%xmm2
  movsd  0x70(%rsp),%xmm1
  mulsd  D773(%rip),%xmm1
  movsd  0x80(%rsp),%xmm3
  mulsd  0x78(%rsp),%xmm1
  mulsd  D639(%rip),%xmm3
  movsd  0x140(%rsp),%xmm15
  mulsd  0x88(%rsp),%xmm3
  movsd  0x138(%rsp),%xmm13
  mulsd  D713(%rip),%xmm15
  movsd  0x130(%rsp),%xmm11
  mulsd  0xb0(%rsp),%xmm15
  mulsd  D239(%rip),%xmm13
  addsd  %xmm1,%xmm2
  movsd  0x90(%rsp),%xmm1
  mulsd  D645(%rip),%xmm1
  mulsd  0x98(%rsp),%xmm1
  mulsd  0xc8(%rsp),%xmm13
  subsd  %xmm3,%xmm2
  mulsd  D59(%rip),%xmm11
  mulsd  0xe0(%rsp),%xmm11
  addsd  %xmm2,%xmm1
  movsd  0xa0(%rsp),%xmm2
  mulsd  D472(%rip),%xmm2
  mulsd  0xa8(%rsp),%xmm2
  subsd  %xmm2,%xmm1
  movsd  0xb8(%rsp),%xmm2
  mulsd  D469(%rip),%xmm2
  mulsd  0xc0(%rsp),%xmm2
  addsd  %xmm15,%xmm1
  subsd  %xmm2,%xmm1
  movsd  0xd0(%rsp),%xmm2
  mulsd  D586(%rip),%xmm2
  mulsd  0xd8(%rsp),%xmm2
  addsd  %xmm13,%xmm1
  subsd  %xmm2,%xmm1
  movsd  0xe8(%rsp),%xmm2
  mulsd  D605(%rip),%xmm2
  mulsd  0xf0(%rsp),%xmm2
  addsd  %xmm11,%xmm1
  subsd  %xmm2,%xmm1
  movsd  0xf8(%rsp),%xmm2
  mulsd  D520(%rip),%xmm2
  mulsd  0x100(%rsp),%xmm2
  movsd  0x128(%rsp),%xmm14
  movsd  0x8(%rsp),%xmm4
  movsd  (%rsp),%xmm6
  mulsd  D688(%rip),%xmm14
  movsd  0x120(%rsp),%xmm12
  mulsd  0x108(%rsp),%xmm14
  mulsd  D635(%rip),%xmm12
  mulsd  0x110(%rsp),%xmm12
  addsd  %xmm2,%xmm1
  movsd  D191(%rip),%xmm2
  mulsd  %xmm4,%xmm2
  subsd  %xmm14,%xmm1
  addsd  %xmm12,%xmm1
  mulsd  %xmm4,%xmm2
  mulsd  0x118(%rsp),%xmm2
  mulsd  D16(%rip),%xmm4
  subsd  %xmm2,%xmm1
  movapd %xmm4,%xmm2
  mulsd  %xmm6,%xmm2
  mulsd  %xmm6,%xmm2
  addsd  %xmm2,%xmm1
  movq   %rbx,%xmm2
  subsd  D603(%rip),%xmm1
  mulsd  D636(%rip),%xmm2
  mulsd  %xmm2,%xmm1
  mulsd  %xmm1,%xmm0
  mulsd  D132(%rip),%xmm0
  divsd  D637(%rip),%xmm0
  add    $0x188,%rsp
  pop    %rbx
  pop    %rbp
  pop    %r12
  pop    %r13
  pop    %r14
  pop    %r15
  ret
```

tool_calls: name: read_data
arguments: tag: D434
type_infered: byte[8]
name: read_data
arguments: tag: D70
type_infered: f64
name: read_data
arguments: tag: D822
type_infered: f64
name: read_data
arguments: tag: D181
type_infered: f64
name: read_data
arguments: tag: D341
type_infered: f64
name: read_data
arguments: tag: D118
type_infered: f64
name: read_data
arguments: tag: D343
type_infered: f64
name: read_data
arguments: tag: D494
type_infered: f64
name: read_data
arguments: tag: D145
type_infered: f64
name: read_data
arguments: tag: D243
type_infered: f64
name: read_data
arguments: tag: D462
type_infered: f64
name: read_data
arguments: tag: D417
type_infered: f64
name: read_data
arguments: tag: D717
type_infered: f64
name: read_data
arguments: tag: D437
type_infered: f64
name: read_data
arguments: tag: D489
type_infered: f64
name: read_data
arguments: tag: D504
type_infered: f64
name: read_data
arguments: tag: D406
type_infered: f64
name: read_data
arguments: tag: D206
type_infered: f64
name: read_data
arguments: tag: D523
type_infered: f64
name: read_data
arguments: tag: D722
type_infered: f64
name: read_data
arguments: tag: D528
type_infered: f64
name: read_data
arguments: tag: D294
type_infered: f64
name: read_data
arguments: tag: D23
type_infered: f64
name: read_data
arguments: tag: D152
type_infered: f64
name: read_data
arguments: tag: D174
type_infered: f64
name: read_data
arguments: tag: D663
type_infered: f64
name: read_data
arguments: tag: D757
type_infered: f64
name: read_data
arguments: tag: D371
type_infered: f64
name: read_data
arguments: tag: D816
type_infered: f64
name: read_data
arguments: tag: D184
type_infered: f64
name: read_data
arguments: tag: D291
type_infered: f64
name: read_data
arguments: tag: D530
type_infered: f64
name: read_data
arguments: tag: D468
type_infered: f64
name: read_data
arguments: tag: D201
type_infered: f64
name: read_data
arguments: tag: D846
type_infered: f64
name: read_data
arguments: tag: D549
type_infered: f64
name: read_data
arguments: tag: D453
type_infered: f64
name: read_data
arguments: tag: D668
type_infered: f64
name: read_data
arguments: tag: D647
type_infered: f64
name: read_data
arguments: tag: D263
type_infered: f64
name: read_data
arguments: tag: D208
type_infered: byte[16]
name: read_data
arguments: tag: D329
type_infered: byte[8]
name: read_data
arguments: tag: D0
type_infered: f64
name: read_data
arguments: tag: D644
type_infered: f64
name: read_data
arguments: tag: D848
type_infered: f64
name: read_data
arguments: tag: D336
type_infered: f64
name: read_data
arguments: tag: D666
type_infered: f64
name: read_data
arguments: tag: D683
type_infered: f64
name: read_data
arguments: tag: D440
type_infered: f64
name: read_data
arguments: tag: D124
type_infered: f64
name: read_data
arguments: tag: D322
type_infered: f64
name: read_data
arguments: tag: D597
type_infered: f64
name: read_data
arguments: tag: D17
type_infered: f64
name: read_data
arguments: tag: D379
type_infered: f64
name: read_data
arguments: tag: D773
type_infered: f64
name: read_data
arguments: tag: D639
type_infered: f64
name: read_data
arguments: tag: D713
type_infered: f64
name: read_data
arguments: tag: D239
type_infered: f64
name: read_data
arguments: tag: D645
type_infered: f64
name: read_data
arguments: tag: D59
type_infered: f64
name: read_data
arguments: tag: D472
type_infered: f64
name: read_data
arguments: tag: D469
type_infered: f64
name: read_data
arguments: tag: D586
type_infered: f64
name: read_data
arguments: tag: D605
type_infered: f64
name: read_data
arguments: tag: D520
type_infered: f64
name: read_data
arguments: tag: D688
type_infered: f64
name: read_data
arguments: tag: D635
type_infered: f64
name: read_data
arguments: tag: D191
type_infered: f64
name: read_data
arguments: tag: D16
type_infered: f64
name: read_data
arguments: tag: D603
type_infered: f64
name: read_data
arguments: tag: D636
type_infered: byte[8]
name: read_data
arguments: tag: D132
type_infered: byte[8]
name: read_data
arguments: tag: D637
type_infered: f64

tool: {"D434": [0x00,0x00,0x00,0x00,0x00,0x00,0xd0,0x3f]}

tool: D70: 27

tool: D822: 54

tool: D181: 26

tool: D341: 52

tool: D118: 25

tool: D343: 50

tool: D494: 24

tool: D145: 48

tool: D243: 23

tool: D462: 46

tool: D417: 22

tool: D717: 44

tool: D437: 21

tool: D489: 42

tool: D504: 20

tool: D406: 40

tool: D206: 19

tool: D523: 38

tool: D722: 18

tool: D528: 36

tool: D294: 17

tool: D23: 34

tool: D152: 16

tool: D174: 32

tool: D663: 15

tool: D757: 30

tool: D371: 14

tool: D816: 28

tool: D184: 13

tool: D291: 12

tool: D530: 11

tool: D468: 10

tool: D201: 9

tool: D846: 8

tool: D549: 7

tool: D453: 6

tool: D668: 5

tool: D647: 4

tool: D263: 3

tool: {"D208": [0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x80,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00]}

tool: {"D329": [0x00,0x00,0x00,0x00,0x00,0x00,0xe0,0x3f]}

tool: D0: 134217728

tool: D644: 96032784384

tool: D848: 31834868023296

tool: D336: 6499618888089600.0

tool: D666: 9.485218824333558e+19

tool: D683: 4.598671216507517e+23

tool: D440: 9.164462632206336e+17

tool: D124: 2.2418522180474145e+25

tool: D322: 8.755678384929624e+26

tool: D597: 7.477514173182955e+21

tool: D17: 2.758038691252832e+28

tool: D379: 7.032998662694721e+29

tool: D773: 1.4534863902902425e+31

tool: D639: 2.4317945376009825e+32

tool: D713: 3.0674808284457394e+35

tool: D239: 1.0999324637294403e+37

tool: D645: 3.2829226257613265e+33

tool: D59: 1.3286026338205607e+38

tool: D472: 3.556499511241437e+34

tool: D469: 2.0840825628557818e+36

tool: D586: 4.428675446068536e+37

tool: D605: 2.8786390399445483e+38

tool: D520: 4.317958559916823e+38

tool: D688: 4.224089895570805e+38

tool: D635: 2.4640524390829694e+38

tool: D191: 7.392157317248908e+37

tool: D16: 8.529412289133356e+36

tool: D603: 1.5795207942839547e+35

tool: {"D636": [0x65,0x79,0xf6,0x04,0xb6,0x0b,0x38,0x41]}

tool: {"D132": [0x5f,0xfa,0x11,0x70,0x38,0x09,0xe8,0x3f]}

tool: D637: 7.57141758348385e+41

assistant: ```c
double HO_54(const double a, const double x) {
  double retval = sqrt(0.2483341104143e13) * pow(a, 0.1e1 / 0.4e1) * (0.134217728e9 * pow(a, 0.27e2) * pow(x, 0.54e2) - 0.96032784384e11 * pow(a, 0.26e2) * pow(x, 0.52e2) + 0.31834868023296e14 * pow(a, 0.25e2) * pow(x, 0.50e2) - 0.6499618888089600e16 * pow(a, 0.24e2) * pow(x, 0.48e2) + 0.916446263220633600e18 * pow(a, 0.23e2) * pow(x, 0.46e2) - 0.94852188243335577600e20 * pow(a, 0.22e2) * pow(x, 0.44e2) + 0.7477514173182954700800e22 * pow(a, 0.21e2) * pow(x, 0.42e2) - 0.459867121650751714099200e24 * pow(a, 0.20e2) * pow(x, 0.40e2) + 0.22418522180474146062336000e26 * pow(a, 0.19e2) * pow(x, 0.38e2) - 0.875567838492962482323456000e27 * pow(a, 0.18e2) * pow(x, 0.36e2) + 0.27580386912528318193188864000e29 * pow(a, 0.17e2) * pow(x, 0.34e2) - 0.703299866269472113926316032000e30 * pow(a, 0.16e2) * pow(x, 0.32e2) + 0.14534863902902423687810531328000e32 * pow(a, 0.15e2) * pow(x, 0.30e2) - 0.243179453760098242469137735680000e33 * pow(a, 0.14e2) * pow(x, 0.28e2) + 0.3282922625761326273333359431680000e34 * pow(a, 0.13e2) * pow(x, 0.26e2) - 0.35564995112414367961111393843200000e35 * pow(a, 0.12e2) * pow(x, 0.24e2) + 0.306748082844573923664585771897600000e36 * pow(a, 0.11e2) * pow(x, 0.22e2) - 0.2084082562855781657838803332598400000e37 * pow(a, 0.10e2) * pow(x, 0.20e2) + 0.10999324637294403194149239810936000000e38 * pow(a, 0.9e1) * pow(x, 0.18e2) - 0.44286754460685360229074570817716000000e38 * pow(a, 0.8e1) * pow(x, 0.16e2) + 0.132860263382056080687223712453148000000e39 * pow(a, 0.7e1) * pow(x, 0.14e2) - 0.287863903994454841488984710315154000000e39 * pow(a, 0.6e1) * pow(x, 0.12e2) + 0.431795855991682262233477065472731000000e39 * pow(a, 0.5e1) * pow(x, 0.10e2) - 0.422408989557080473924053651005932500000e39 * pow(a, 0.4e1) * pow(x, 0.8e1) + 0.246405243908296943122364629753460625000e39 * pow(a, 0.3e1) * pow(x, 0.6e1) - 0.73921573172489082936709388926038187500e38 * a * a * pow(x, 0.4e1) + 0.8529412289133355723466467953004406250e37 * a * x * x - 0.157952079428395476360490147277859375e36) * exp(-a * x * x / 0.2e1) * pow(0.3141592654e1, -0.1e1 / 0.4e1) / 0.757141758348384982949382019072131072000000e42;
  return retval;
}
```