(loop(format t"~D
"(/(*(+(set'n(read))n 1)n(1+ n))6)))