Loop and Do, and number theory

Well, I don't know when it started, but I always seem to be more comfortable writing a complicated do statement than trying to find the right combination of loop keywords to accomplish any non-trivial task in common lisp. "do" really is the more powerful tool, at the cost of having less builtin bells and whistles. I am uploading a bunch of functions I wrote for a number-theory class to github, since I have started to feel I won't add to many more things to it. It's far from polished, unpackaged, perhaps broken, and inelegant, but I want to have it someplace it won't crash. github repo. I will update it as appropriate, it's mainly a product of fooling around and never meant to be production quality. There are a ton of clumsy choices, and cruft resulting from them.