procedure main(A)
   tail := \A[1] | 269696
   size := 10^*tail
   if ((n := seq())^2 % size) = tail then write(n," -> ",n^2)
end