ps = {bz -> 0, b3 -> 5/9, e3 -> 1/6, e4 -> 1/4, e5 -> 1/4}
 
memo = {sy500d$, from, sy401d$}
 
OUT = {0.003397319695443637, 0.007553809159934813, 0.14413397934980865, 
     0.0812564202573326, 0.3844365920217072, 0.49690379872151413, 
     0.38986343250089994, 0.3844496671706117, 0.4054121590561163, 
     0.38883965948178684, 0.0944525989142777, 0.46391574086817716, 
     0.253376926223574, 0.3888515806951929, 0.31702460472101734, 
     0.15759803601195368, 0.06892410862032167, 0.3472649161910152, 
     0.06893385419631105, 0.3672141798115535, 0.12700591565694078}
 
Attributes[s$15] = {Temporary}
 
s$15 = {3/2, 5, 99}
 
Attributes[t$15] = {Temporary}
 
t$15 = {2002, 10, 15, 21, 42, 47}