'ProgramMode:RUN Goto I Lbl A ?->Z 0->S:1->P For 0->N To 6 S+List 1[N+1]Z^N->S P(Z+N)->P Next (S/P)((Z+5.5)^(Z+.5)e^(-(Z+5.5)) Stop Lbl I 7->Dim List 1 75122.6331530->List 1[1] 80916.6278952->List 1[2] 36308.2951477->List 1[3] 8687.24529705->List 1[4] 1168.92649479->List 1[5] 83.8676043424->List 1[6] 2.50662827511->List 1[7] Goto A