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