add birthday generatorHEADmaster

1 files changed, 13 insertions, 0 deletions

diff --git a/happy-birthday.el b/happy-birthday.el
index fb96a6c..9e6a9fd 100644
--- a/happy-birthday.el
+++ b/happy-birthday.el
@@ -21,3 +21,16 @@
  () () () () () () () () () () () () () () () ! ()
  () () () () () () () () () () () () () () ! ! () ()
  () () () () () !?)
+
+
+(mapcan
+ (lambda (w)
+   (let (r)
+     (push '!? r)
+     (mapc (lambda (c)
+             (cl-loop for i below (- c ?a)
+                      do (push '() r))
+             (push '! r))
+           w)
+     r))
+ (reverse (string-split "happy birthday seb")))