Add first cut of beer-song

...with cl-format madness. :) Probably too insane to ship.
beer-song: simplify format string by modifying argument
beer-count: introduce explanatory next-beer-count binding