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[(-176.6150291621406 / N[(z + 3.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(771.3234287776531 / N[(z + 2.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[(12.507343278686905 / N[(z + 4.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$3 = N[(-0.13857109526572012 / N[(z + 5.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$4 = N[(1.5056327351493116e-7 / N[(z + 7.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$5 = N[(9.984369578019572e-6 / N[(z + 6.0), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$6 = N[Power[N[(1259.1392167224028 / N[(-1.0 - z), $MachinePrecision]), $MachinePrecision], 1/3], $MachinePrecision]}, If[LessEqual[N[(z + -1.0), $MachinePrecision], 142.0], N[(N[Sqrt[N[(Pi * 2.0), $MachinePrecision]], $MachinePrecision] * N[(N[Power[N[(z + 6.5), $MachinePrecision], N[(z + -0.5), $MachinePrecision]], $MachinePrecision] * N[(N[Power[N[Power[N[Exp[N[(-6.5 - z), $MachinePrecision]], $MachinePrecision], 3.0], $MachinePrecision], 1/3], $MachinePrecision] * N[(N[(0.9999999999998099 + N[(N[(N[(676.5203681218851 / z), $MachinePrecision] + N[(-1259.1392167224028 / N[(z + 1.0), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + t$95$1), $MachinePrecision]), $MachinePrecision] + N[(N[(N[(t$95$3 + t$95$5), $MachinePrecision] + N[(t$95$0 + t$95$2), $MachinePrecision]), $MachinePrecision] + t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(N[Exp[N[((-N[Log[N[(z + 6.5), $MachinePrecision]], $MachinePrecision]) * N[(0.5 - z), $MachinePrecision] + N[(-6.5 - z), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] * N[(N[Sqrt[2.0], $MachinePrecision] * N[Sqrt[Pi], $MachinePrecision]), $MachinePrecision]), $MachinePrecision] * N[(N[(N[(N[(N[Power[t$95$6, 2.0], $MachinePrecision] * t$95$6 + N[(0.9999999999998099 + N[(676.5203681218851 / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision] + N[(t$95$0 + t$95$1), $MachinePrecision]), $MachinePrecision] + N[(t$95$3 + t$95$2), $MachinePrecision]), $MachinePrecision] + N[(t$95$5 + t$95$4), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]]]]