; square square
(do ((n (+ 3163 1) (+ n 1))) ((= n 10000))
(when (= (modulo (* n n) 10000) n)
(display n) (newline)))
OyBzcXVhcmUgc3F1YXJlCgooZG8gKChuICgrIDMxNjMgMSkgKCsgbiAxKSkpICgoPSBuIDEwMDAwKSkKICAod2hlbiAoPSAobW9kdWxvICgqIG4gbikgMTAwMDApIG4pCiAgICAoZGlzcGxheSBuKSAobmV3bGluZSkpKQ==