for[x 0 30][(pr[x =]word form x/10 0 1 ",[y =]form exp x/(10+77e-7)0 6)]bye