code[x_] := N[(1.0 - N[(N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(0.254829592 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(-0.284496736 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(1.421413741 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(-1.453152027 + N[(N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * 1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Exp[(-N[(N[Abs[x], $MachinePrecision] * N[Abs[x], $MachinePrecision]), $MachinePrecision])], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[x_] := Block[{t$95$0 = N[Exp[(-N[(x * N[(x - (-x)), $MachinePrecision]), $MachinePrecision])], $MachinePrecision]}, Block[{t$95$1 = N[(1.0 / N[(1.0 + N[(0.3275911 * N[Abs[x], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Exp[N[(x * N[((-x) - x), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = N[(t$95$1 * N[(0.284496736 + N[(t$95$1 * N[(-1.421413741 + N[(t$95$1 * N[(1.453152027 + N[(t$95$1 * -1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(1.0 + N[(N[Abs[x], $MachinePrecision] * 0.3275911), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(1.0 / t$95$4), $MachinePrecision]}, Block[{t$95$6 = N[(0.254829592 + N[(t$95$5 * N[(-0.284496736 + N[(t$95$5 * N[(1.421413741 + N[(t$95$5 * N[(-1.453152027 + N[(t$95$5 * 1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$7 = N[(t$95$2 * t$95$6), $MachinePrecision]}, Block[{t$95$8 = N[(-1.0 / N[(-1.0 + N[(N[Abs[x], $MachinePrecision] * -0.3275911), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$9 = N[(t$95$4 * t$95$4), $MachinePrecision]}, Block[{t$95$10 = N[(1.0 / t$95$9), $MachinePrecision]}, Block[{t$95$11 = N[Exp[(-N[(x * x), $MachinePrecision])], $MachinePrecision]}, Block[{t$95$12 = N[Exp[N[(x * (-x)), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$13 = N[(-1.0 - N[(t$95$1 * N[(N[(0.254829592 - t$95$3), $MachinePrecision] * t$95$12), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$14 = N[(t$95$8 * N[(-0.284496736 + N[(t$95$8 * N[(1.421413741 + N[(t$95$8 * N[(-1.453152027 + N[(t$95$8 * 1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$15 = N[(0.254829592 + t$95$14), $MachinePrecision]}, Block[{t$95$16 = N[(t$95$8 * N[(t$95$11 * N[(t$95$11 * N[(t$95$15 * N[(t$95$8 * t$95$15), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$17 = N[(t$95$5 * N[(1.453152027 + N[(t$95$5 * -1.061405429), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$18 = N[(-0.254829592 + N[(t$95$5 * N[(0.284496736 + N[(t$95$5 * N[(-1.421413741 + t$95$17), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$19 = N[(t$95$18 * t$95$18), $MachinePrecision]}, Block[{t$95$20 = N[(t$95$19 * t$95$10), $MachinePrecision]}, Block[{t$95$21 = N[(t$95$2 * t$95$19), $MachinePrecision]}, Block[{t$95$22 = N[(t$95$21 * N[(1.0 / N[(t$95$4 * N[(t$95$4 * t$95$9), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$23 = N[(N[(t$95$18 * t$95$7), $MachinePrecision] * t$95$22), $MachinePrecision]}, Block[{t$95$24 = N[(t$95$2 * N[(t$95$23 * t$95$20), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$25 = N[(0.254829592 + N[(t$95$5 * N[(-0.284496736 + N[(t$95$5 * N[(1.421413741 - t$95$17), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$26 = N[(t$95$5 * N[(t$95$0 * N[(t$95$25 * t$95$25), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$27 = N[(t$95$26 * t$95$10), $MachinePrecision]}, Block[{t$95$28 = N[(t$95$7 * N[(t$95$18 * t$95$24), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$29 = N[(t$95$21 * t$95$22), $MachinePrecision]}, Block[{t$95$30 = N[(t$95$21 * t$95$29), $MachinePrecision]}, Block[{t$95$31 = N[(t$95$5 * N[(t$95$28 - (-t$95$30)), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$32 = N[(t$95$26 * t$95$27), $MachinePrecision]}, Block[{t$95$33 = N[(t$95$18 * N[(t$95$5 * t$95$7), $MachinePrecision]), $MachinePrecision]}, If[Unequal[t$95$13, 0.0], N[(If[Unequal[N[(t$95$8 * N[(N[(N[(t$95$8 * t$95$11), $MachinePrecision] * N[(-0.254829592 - t$95$14), $MachinePrecision]), $MachinePrecision] * N[(t$95$11 * t$95$15), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], 0.0], N[(If[Unequal[t$95$32, 0.0], N[(N[(t$95$5 * If[Unequal[t$95$31, 0.0], N[(N[(N[(t$95$33 * N[(N[(t$95$2 * t$95$20), $MachinePrecision] * N[(N[(t$95$18 * N[(t$95$2 * N[(t$95$24 * N[(t$95$5 * t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * t$95$23), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(N[(t$95$5 * t$95$30), $MachinePrecision] * N[(t$95$29 * t$95$33), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] / t$95$31), $MachinePrecision], N[(t$95$5 * N[(t$95$28 - t$95$30), $MachinePrecision]), $MachinePrecision]]), $MachinePrecision] / t$95$32), $MachinePrecision], N[(N[(t$95$18 * N[(t$95$5 * N[(t$95$0 * t$95$25), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(t$95$5 - t$95$27), $MachinePrecision]), $MachinePrecision]] / t$95$16), $MachinePrecision], N[(-1.0 + t$95$16), $MachinePrecision]] / t$95$13), $MachinePrecision], N[(1.0 + N[(N[(t$95$1 * t$95$12), $MachinePrecision] * N[(t$95$3 + -0.254829592), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]