for (i=0; i<8*a(1); i=i+.01) x=s(i)
x
quit