(read)(while:prn:+(mod(= k(*(round:sqrt:read)11))10)k)