( Z | )0 1 9{exch print(0.0)print =only( )}for()=(----+)print
70{(-)print}repeat()=[74 7704 77 7794 163 9484 243 9925 292 9982>>begin 0 1
30{dup 10 div =only( |)print 0 1 9{( 0.)print 1 index 10 mul
add{load}stopped{100 div 1 2.7183 0[9.7e-6 -4.59e-4 9.593e-3 -0.63662]{add 3
index dup mul mul}forall exp sub sqrt 1 add 5000 mul .5 add cvi exch pop}if
=only}for()=}for
Note that non-ascii characters in the above source code will be escaped (such as \x9f).