(while(print(do([n(read)][r 1(*(/(+ n i)i)r)][i 0])((>(inc! i)n)r))))