code[z_] := N[(N[(N[(N[Sqrt[N[(Pi * 2.0), $MachinePrecision]], $MachinePrecision] * N[Power[N[(N[(N[(z - 1.0), $MachinePrecision] + 7.0), $MachinePrecision] + 0.5), $MachinePrecision], N[(N[(z - 1.0), $MachinePrecision] + 0.5), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[Exp[(-N[(N[(N[(z - 1.0), $MachinePrecision] + 7.0), $MachinePrecision] + 0.5), $MachinePrecision])], $MachinePrecision]), $MachinePrecision] * N[(N[(N[(N[(N[(N[(N[(N[(0.9999999999998099 + N[(676.5203681218851 / N[(N[(z - 1.0), $MachinePrecision] + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-1259.1392167224028 / N[(N[(z - 1.0), $MachinePrecision] + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(771.3234287776531 / N[(N[(z - 1.0), $MachinePrecision] + 3.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-176.6150291621406 / N[(N[(z - 1.0), $MachinePrecision] + 4.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(12.507343278686905 / N[(N[(z - 1.0), $MachinePrecision] + 5.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(-0.13857109526572012 / N[(N[(z - 1.0), $MachinePrecision] + 6.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(9.984369578019572e-6 / N[(N[(z - 1.0), $MachinePrecision] + 7.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(1.5056327351493116e-7 / N[(N[(z - 1.0), $MachinePrecision] + 8.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
↓
code[z_] := Block[{t$95$0 = N[(9.984369578019572e-6 / N[(z + 6.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(Pi * 2.0), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = N[(-176.6150291621406 / N[(z + 3.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(12.507343278686905 / N[(z + 4.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(-0.13857109526572012 / N[(z + 5.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(N[(676.5203681218851 + N[(z * -582.6188486005177), $MachinePrecision]), $MachinePrecision] / N[(z * z + z), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[(1.5056327351493116e-7 / N[(z + 7.0), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[N[(z + -1.0), $MachinePrecision], 140.0], N[(t$95$1 * N[(N[(N[Power[N[(z + 6.5), $MachinePrecision], N[(z + -0.5), $MachinePrecision]], $MachinePrecision] * N[Exp[N[(-6.5 - z), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] * N[(0.9999999999998099 + N[(N[(N[(N[(458891030.96596426 / N[Power[N[(z + 2.0), $MachinePrecision], 3.0], $MachinePrecision]), $MachinePrecision] + N[Power[t$95$5, 3.0], $MachinePrecision]), $MachinePrecision] / N[(t$95$5 * N[(t$95$5 + N[(-771.3234287776531 / N[(z + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(594939.8317813153 / N[(N[(z + 2.0), $MachinePrecision] * N[(z + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$4 + N[(t$95$0 + N[(t$95$2 + N[(t$95$3 + t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(t$95$1 * N[(N[(N[(0.9999999999998099 + N[(676.5203681218851 / z), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(-1259.1392167224028 / N[(z + 1.0), $MachinePrecision]), $MachinePrecision] + N[(t$95$2 + N[(t$95$3 + N[(771.3234287776531 / N[(z + 2.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$4 + N[(t$95$0 + t$95$6), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[Exp[N[(N[(-6.5 - z), $MachinePrecision] + N[(N[(z + -0.5), $MachinePrecision] * N[Log[N[(z + 6.5), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]