;;; happy-birthday.el --  -*- lexical-binding: t -*-

(defmacro seb (&rest x)
  (let ((r) (w))
    (dolist (e x)
      (cond ((eq e '!) (push ?a w))
            ((eq e '!?)
             (push (intern (apply 'string w)) r)
             (setf w nil))
            ((eq e '()) (setf (car w) (1+ (car w))))))
    `(quote ,r)))
(seb
 ! () ! () () () () ! () () () () () () () () () () ()
 () () () () () () () !? ! () () () () () () () ()
 () () () () () () () () () () () () () () () () ! !
 () () () ! () () () () () () () ! () () () () () ()
 () () () () () () () () () () () () () ! () () ()
 () () () () () () () () () () () () () () ! () ()
 () () () () () () ! () !? ! () () () () () () () ()
 () () () () () () () () () () () () () () () () !
 () () () () () () () () () () () () () () () ! ()
 () () () () () () () () () () () () () () ! ! () ()
 () () () () () !?)