First working Clojure version of pseudo toroidal cover (needs more testing)