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