(loop(format t"~d
"(/(*(set'a(read))(1+ a)(+ a a 1))6)))