Update core.clj

An ubly implementation of the "goup" macros (changed encription)