; babbage's number
(define (babbage1)
(let loop ((n 1))
(if (= (modulo (* n n) 1000000) 269696) n
(loop (+ n 1)))))
(display (babbage1)) (newline)
(define (babbage2)
(let ((wheel (vector 2 8)))
(let loop ((n 4) (w 0))
(if (= (modulo (* n n) 1000000) 269696) n
(loop (+ n (vector-ref wheel w)) (- 1 w))))))
(display (babbage2)) (newline)
OyBiYWJiYWdlJ3MgbnVtYmVyCgooZGVmaW5lIChiYWJiYWdlMSkKICAobGV0IGxvb3AgKChuIDEpKQogICAgKGlmICg9IChtb2R1bG8gKCogbiBuKSAxMDAwMDAwKSAyNjk2OTYpIG4KICAgICAgKGxvb3AgKCsgbiAxKSkpKSkKICAgICAKKGRpc3BsYXkgKGJhYmJhZ2UxKSkgKG5ld2xpbmUpCgooZGVmaW5lIChiYWJiYWdlMikKICAobGV0ICgod2hlZWwgKHZlY3RvciAyIDgpKSkKICAgIChsZXQgbG9vcCAoKG4gNCkgKHcgMCkpCiAgICAgIChpZiAoPSAobW9kdWxvICgqIG4gbikgMTAwMDAwMCkgMjY5Njk2KSBuCiAgICAgICAgKGxvb3AgKCsgbiAodmVjdG9yLXJlZiB3aGVlbCB3KSkgKC0gMSB3KSkpKSkpCgooZGlzcGxheSAoYmFiYmFnZTIpKSAobmV3bGluZSk=