(loop(format /"~D
"(+(*(setf / t k(round(sqrt(read))))11)(mod k 10))))