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