All codes lead to Home

After lambdas, maps, and sequences, flandrew continues to obsess over different ways to produce the exact same result.

It started with my idea of using Emacs Lisp to generate the URL string of my homepage. I could, of course, simply send people a normal link, which is what I suppose normal people do when corresponding with other normal people. But links are boring, and Lispers wield the power to evaluate things that are delivered between parentheses. Lispers, I suspect, aren’t normal people.

So I thought up a couple of sexps that would do what I wanted.
Yet I kept coming up with more, so I gathered them in a collection.
The collection grew.

Most of it is right here. Let me show you.

Understanding the logic behind the evaluation of every expression is left as an entertaining elisp exercise for the reader.

My criteria for inclusion.

Subtle variations between solutions were a welcome feature, and much of the point.

Function comes from a different library? New solution.
The order changes? New solution.
Etc.

The change had to introduce some novelty, by adding either some aesthetic value or some information about a different way of solving it, even if small. For example, although these two use the same function, they’re different ideas:

(s-replace " " "" "flandrew . srht . site")
(s-replace " DOT " "." "flandrew DOT srht DOT site")

But adding this to those two seemed silly:

(s-replace " x " "." "flandrew x srht x site")

There were also some situations where producing all solutions would lead to pointless combinatorial explosions. For example, it seemed fine to include both of these:

(concat "flandrew" "." "srht.site")
(concat "flandrew" "." "srht" "." "site")

But not this:

(concat "fl" "and" "re" "w.sr" "ht.s" "i" "t" "e")

There’re 2¹⁷ = 131 072 ways to split the URL so that each substring has at least one character. But these add nothing; it’d be silly.

Some other examples of exclusions:

Producing #'mapcar equivalents for all #'-map when using dash.
Producing all 16 combinations of 4×4 ways of showing two lambdas (lambda, llama, anaphoric, -cut).
Etc.

All of that said, I did err on the side of including variations.

Sorting them.

In the beginning, whenever I thought up a new sexp, I tried to classify it: it uses this or that library, or this or that way of solving. This soon proved unfeasible.

So I simplified it: I started sorting them all by length instead. Whenever a new approach comes to mind, I write the sexp, test it, and manually fit it among the others.

When the length of my solution exceeds 80, I just allow it to span multiple lines. These I don’t strictly sort by length. Instead, I try to group them by similarity, and inside each group I try to minimize the variation between each solution and the next.

All codes

;;; flandrew's homepage's URL string generated by Emacs Lisp

;;; Commentary:
;; It's not over yet!

;;; Code:
;;;; Libraries used
(require 'subr-x)
(require 'llama)  ; ##*
(require 'dash)   ;  -*
(require 'xht)    ; h-*   (by flandrew)
(require 'map)
(require 'seq)
(require 's)

;;;; Check the solutions
;;;;; Count them
(1- (how-many "^("))   ; => 371

;;;;; Count and test them
(let ((fsite "flandrew.srht.site")
      (check (h* 'right 0 'wrong 0 'where nil))
      (esexp))
  (save-excursion
    (while (not (eobp))
      (forward-sexp)
      (unless (eobp)
        (setq esexp (condition-case err (eval-last-sexp nil) (error "error")))
        (pcase (equal esexp fsite)
          ('t   (h-put-inc*! check 'right))
          ('nil (h-put-inc*! check 'wrong)
                (h-put*!     check 'where (point) esexp)))))
    check))   ; H=> (h* 'right 371 'wrong 0 'where nil)

;;;; Solutions
;;;;; One-liners
;;;;;; length ≤ 30
(rot13 "synaqerj.feug.fvgr")
(car '("flandrew.srht.site"))
(or "flandrew.srht.site" 'foo)
(xor "flandrew.srht.site" nil)
(elt ["flandrew.srht.site"] 0)
(reverse "etis.thrs.werdnalf")

;;;;;; 30 < length ≤ 40
(prog1 "flandrew.srht.site" 42)
(prog2  4"flandrew.srht.site"2)
(progn 42 "flandrew.srht.site")
(identity "flandrew.srht.site")
(downcase "FLANDREW.SRHT.SITE")
(nreverse "etis.thrs.werdnalf")
(aref ["flandrew.srht.site"] 0)
(elt '("flandrew.srht.site") 0)
(nth 0 '("flandrew.srht.site"))
(caar '(("flandrew.srht.site")))
(seq-rest "#flandrew.srht.site")
(symbol-name 'flandrew.srht.site)
(format "%s" 'flandrew.srht.site)
(seq-elt ["flandrew.srht.site"] 0)
(seq-reverse "etis.thrs.werdnalf")
(format "%s" "flandrew.srht.site")
(s-append ".site" "flandrew.srht")
(s-prepend "flandrew." "srht.site")
(concat "flandrew" "." "srht.site")
(s-join "" '("flandrew.srht.site"))
(caaar '((("flandrew.srht.site"))))
(string-join '("flandrew.srht.site"))
(caaaar '(((("flandrew.srht.site")))))
(cadr '("Check" "flandrew.srht.site"))
(car (--map it ["flandrew.srht.site"]))
(funcall (-const "flandrew.srht.site"))
(s-join "." '("flandrew" "srht" "site"))
(s-replace " " "." "flandrew srht site")

;;;;;; 40 < length ≤ 50
(car (append ["flandrew.srht.site"] nil))
(concat "flandrew" "." "srht" "." "site")
(format "%s.%s.%s" 'flandrew 'srht 'site)
(s-replace " " "" "flandrew . srht . site")
(format "%s.%s.%s" "flandrew" "srht" "site")
(substring "Check flandrew.srht.site!" 6 24)
(seq-subseq "Seen flandrew.srht.site?" 5 23)
(s-right 18 "Hey, check flandrew.srht.site")
(string-replace " " "." "flandrew srht site")
(seq-take "flandrew.srht.site is superb!" 18)
(s-left 18 "flandrew.srht.site is terrific!")
(string-join '("flandrew" "srht" "site") ".")
(car (string-to-list ["flandrew.srht.site"]))
(car (-map #'identity '("flandrew.srht.site")))
(s-join "." (cons "flandrew" '("srht" "site")))
(s-join "." (s-split "λ" "flandrewλsrhtλsite"))
(seq-drop "Bookmark now flandrew.srht.site" 13)
(seq-remove-at-position "flandrew.*srht.site" 9)
(string-replace " " "" "flandrew . srht . site")
(s-chop-left 11 "Don't miss flandrew.srht.site")
(s-format "$0.$1.$2" #'elt [flandrew srht site])
(s-truncate 18 "flandrew.srht.site is great!" "")
(base64-decode-string "ZmxhbmRyZXcuc3JodC5zaXRl")
(s-format "$0.$1.$2" #'elt '(flandrew srht site))
(string-limit "flandrew.srht.site is awesome!" 18)
(s-chop-right 12 "flandrew.srht.site? Very good!")
(seq-take-while (##< % ?z) "flandrew.srht.sitez!")
(car (butlast '("flandrew.srht.site" "is.great")))

;;;;;; 50 < length ≤ 60
(s-format "$0$1.$2.$3" #'elt [flan drew srht site])
(s-format "$3$1.$2.$0" #'elt [site drew srht flan])
(s-truncate 18 "flandrew says hello!" ".srht.site")
(with-output-to-string (princ 'flandrew.srht.site))
(mapconcat #'symbol-name '(flandrew srht site) ".")
(s-replace " DOT " "." "flandrew DOT srht DOT site")
(apply #'concat '("flandrew" "." "srht" "." "site"))
(mapconcat #'reverse '("werdnalf" "thrs" "etis") ".")
(mapconcat #'downcase '("FLANDREW" "SRHT" "SITE") ".")
(mapconcat #'identity '("flandrew" "srht" "site") ".")
(s-join "." (cdr '("Check" "flandrew" "srht" "site")))
(s-format "$0.$1.$2" #'elt ["flandrew" "srht" "site"])
(s-format "$0.$1.$2" #'elt '("flandrew" "srht" "site"))
(s-join "." (-map #'symbol-name '(flandrew srht site)))
(-reduce (##format "%s.%s" % %2) '(flandrew srht site))
(--reduce (format "%s.%s" acc it) '(flandrew srht site))
(s-join "" (-interpose "." '("flandrew" "srht" "site")))
(-reduce (##concat % "." %2) '("flandrew" "srht" "site"))
(s-join "." (mapcar #'symbol-name '(flandrew srht site)))
(concat "flandrew" (string 46) "srht" (string 46) "site")
(s-replace-regexp "[[:punct:]]" "." "flandrew!srht@site")
(string-replace " DOT " "." "flandrew DOT srht DOT site")
(string-join (-interpose "." '("flandrew" "srht" "site")))
(--reduce (concat acc "." it) '("flandrew" "srht" "site"))
(condition-case nil (/ 42 0) (error "flandrew.srht.site"))
(s-with "srht" (s-prepend "flandrew.") (s-append ".site"))
(string-join (cdr '("Check" "flandrew" "srht" "site")) ".")
(s-join "" (-map #'symbol-name '(flandrew \. srht \. site)))
(string-join (-map #'symbol-name '(flandrew srht site)) ".")

;;;;;; 60 < length ≤ 70
(s-join "" (cdr '("Check" "flandrew" "." "srht" "." "site")))
(string-join (drop 1 '("Check" "flandrew" "srht" "site")) ".")
(string-join (mapcar #'symbol-name '(flandrew srht site)) ".")
(s-join "" (mapcar #'symbol-name '(flandrew \. srht \. site)))
(string-join (-map #'symbol-name '(flandrew \. srht \. site)))
(string-join (cdr '("Check" "flandrew" "." "srht" "." "site")))
(mapconcat #'symbol-name (cdr '(Check flandrew srht site)) ".")
(mapconcat #'symbol-name (append [flandrew srht site] nil) ".")
(-let [[f h s] [flandrew srht site]] (format "%s.%s.%s" f h s))
(seq-let [f h s] [flandrew srht site] (format "%s.%s.%s" f h s))
(->> '("Check" "flandrew" "srht" "site") (-drop 1) (s-join "."))
(string-join (mapcar #'symbol-name '(flandrew \. srht \. site)))
(mapconcat #'symbol-name (append '(flandrew)'(srht)'(site)) ".")
(concat [?f ?l ?a ?n ?d ?r ?e ?w ?. ?s ?r ?h ?t ?. ?s ?i ?t ?e])
(with-temp-buffer (insert "flandrew.srht.site") (buffer-string))
(-let [(f h s) '(flandrew srht site)] (format "%s.%s.%s" f h s))
(seq-let (f h s) '(flandrew srht site) (format "%s.%s.%s" f h s))
(s-join "" (-select #'stringp '("flandrew." O "srht." K "site")))
(s-join "" (-reject #'symbolp '("flandrew." O "srht." K "site")))
(s-join "" `("flandrew" ,(string 46) "srht" ,(string 46) "site"))
(replace-regexp-in-string "[[:punct:]]" "." "flandrew!srht@site")
(s-join "" (-replace "?" "." '("flandrew" "?" "srht" "?" "site")))
(apply #'concat (cdr '("Check" "flandrew" "." "srht" "." "site")))
(-let [[f h s] ["flandrew" "srht" "site"]] (concat f "." h "." s))
(with-output-to-string (mapc #'princ '(flandrew \. srht \. site)))
(with-output-to-string (-each '(flandrew \. srht \. site) #'princ))
(seq-let [f h s] ["flandrew" "srht" "site"] (concat f "." h "." s))
(string-join (-select #'stringp '("flandrew." O "srht." K "site")))
(string-join (-reject #'symbolp '("flandrew." O "srht." K "site")))
(string-join `("flandrew" ,(string 46) "srht" ,(string 46) "site"))
(s-join "" (-interleave '("flandrew" "srht" "site") '("." "." "")))
(-reduce (lambda (x y) (format "%s.%s" x y)) '(flandrew srht site))
(mapconcat #'symbol-name (append [flandrew] [srht] [site] nil) ".")
(-let [(f h s) '("flandrew" "srht" "site")] (concat f "." h "." s))
(seq-let (f h s) '("flandrew" "srht" "site") (concat f "." h "." s))
(truncate-string-to-width "flandrew.srht.site is truly amazing." 18)
(s-join "" (seq-filter #'stringp '("flandrew." O "srht." K "site")))
(s-join "" (seq-remove #'symbolp '("flandrew." O "srht." K "site")))
(string-join (-replace "?" "." '("flandrew" "?" "srht" "?" "site")))
(-tree-mapreduce #'symbol-name #'concat '(flandrew \. srht \. site))
(with-output-to-string (mapc #'princ '(flandrew "." srht "." site)))
(with-output-to-string (-each '(flandrew "." srht "." site) #'princ))
(string-join (-interleave '("flandrew" "srht" "site") '("." "." "")))
(-reduce (lambda (x y) (concat x "." y)) '("flandrew" "srht" "site"))
(-let [[f h s] ["flandrew" "srht" "site"]] (format "%s.%s.%s" f h s))
(-let [[f h s] [flandrew srht site]] (s-lex-format "${f}.${h}.${s}"))

;;;;;; 70 < length ≤ 80
(string-join (take 3 '("flandrew" "srht" "site" "is" "splendid")) ".")
(seq-let [f h s] ["flandrew" "srht" "site"] (format "%s.%s.%s" f h s))
(seq-let [f h s] [flandrew srht site] (s-lex-format "${f}.${h}.${s}"))
(-let [(f h s) '("flandrew" "srht" "site")] (format "%s.%s.%s" f h s))
(-let [(f h s) '(flandrew srht site)] (s-lex-format "${f}.${h}.${s}"))
(string-join (seq-filter #'stringp '("flandrew." O "srht." K "site")))
(string-join (seq-remove #'symbolp '("flandrew." O "srht." K "site")))
(string-join (ntake 3 '("flandrew" "srht" "site" "is" "splendid")) ".")
(seq-let (f h s) '("flandrew" "srht" "site") (format "%s.%s.%s" f h s))
(seq-let (f h s) '(flandrew srht site) (s-lex-format "${f}.${h}.${s}"))
(h-let (h<-list '(flandrew srht site)) (format "%s.%s.%s" \.0 \.1 \.2))
(with-output-to-string (--each '(flandrew \. srht \. site) (princ it)))
(s-format "${f}.${h}.${s}" #'aget '((f . flandrew)(h . srht)(s . site)))
(->> '("flandrew" "srht" "site" "is" "splendid") (-take 3) (s-join "."))
(with-output-to-string (--each '(flandrew "." srht "." site) (princ it)))
(-tree-mapreduce #'symbol-name (##concat % "." %2) '(flandrew srht site))
(let ((f 'flandrew) (h 'srht) (s 'site)) (s-lex-format "${f}.${h}.${s}"))
(s-join "" (--map-when (symbolp it) "." '("flandrew" O "srht" K "site")))
(s-join "" (-map #'symbol-name '(f l a n d r e w \. s r h t \. s i t e)))
(with-output-to-string (dolist (x '(flandrew \. srht \. site)) (princ x)))
(s-join "" (-zip-with #'concat '("flandrew" "srht" "site") '("." "." "")))
(with-temp-buffer (insert "flandrew" ?. "srht" ?. "site") (buffer-string))
(pcase-let ((`(,f ,h ,s) '(flandrew srht site))) (format "%s.%s.%s" f h s))
(s-join "" (mapcar #'symbol-name '(f l a n d r e w \. s r h t \. s i t e)))
(string-join (-map #'symbol-name '(f l a n d r e w \. s r h t \. s i t e)))
(string-join (--map-when (symbolp it) "." '("flandrew" O "srht" K "site")))
(-let [[f h s] ["flandrew" "srht" "site"]] (s-lex-format "${f}.${h}.${s}"))
(seq-let [f h s] ["flandrew" "srht" "site"] (s-lex-format "${f}.${h}.${s}"))
(s-join "" (-map-when #'natnump #'string '("flandrew" 46 "srht" 46 "site")))
(string-join (-zip-with #'concat '("flandrew" "srht" "site") '("." "." "")))
(apply #'concat (-interpose "." (-map #'symbol-name '(flandrew srht site))))
(s-format "${f}.${h}.${s}" #'gethash (h* "f" 'flandrew "h" 'srht "s" 'site))
(-let [(f h s) '("flandrew" "srht" "site")] (s-lex-format "${f}.${h}.${s}"))
(seq-let (f h s) '("flandrew" "srht" "site") (s-lex-format "${f}.${h}.${s}"))
(-tree-mapreduce #'symbol-name (-cut concat <> "." <>) '(flandrew srht site))
(--tree-mapreduce (symbol-name it) (concat it "." acc) '(flandrew srht site))
(string-join (mapcar #'symbol-name '(f l a n d r e w \. s r h t \. s i t e)))
(string-join (-map-when #'natnump #'string '("flandrew" 46 "srht" 46 "site")))
(s-join "" (-map-when #'symbolp (-const ".") '("flandrew" O "srht" K "site")))
(pcase-let ((`(,f ,h ,s) '("flandrew" "srht" "site"))) (concat f "." h "." s))
(->> '(flandrew srht site)(-map #'symbol-name)(-interpose ".")(apply #'concat))
(concat [102 108 97 110 100 114 101 119 46 115 114 104 116 46 115 105 116 101])
(concat '(102 108 97 110 100 114 101 119 46 115 114 104 116 46 115 105 116 101))
(string-join (-map-when #'symbolp (-const ".") '("flandrew" O "srht" K "site")))

;;;;; Multiple lines
;;;;;; length > 80
;;     These are not strictly sorted by length.
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(pcase-let ((`(,f ,h ,s) '(flandrew srht site)))
  (format "%s.%s.%s" f h s))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(pcase-let ((`(,f ,h ,s) '(flandrew srht site)))
  (s-lex-format "${f}.${h}.${s}"))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(pcase-let ((`(,f ,h ,s) '("flandrew" "srht" "site")))
  (format "%s.%s.%s" f h s))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(pcase-let ((`(,f ,h ,s) '("flandrew" "srht" "site")))
  (s-lex-format "${f}.${h}.${s}"))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(-tree-mapreduce
 #'symbol-name #'concat '(f l a n d r e w \. s r h t \. s i t e))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(-tree-mapreduce
 #'symbol-name (lambda (x y) (concat x "." y)) '(flandrew srht site))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--tree-mapreduce
 (symbol-name it) (concat it acc) '(f l a n d r e w \. s r h t \. s i t e))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--> (list "flandrew")
     (!cons "srht" it)
     (!cons "site" it)
     (nreverse     it)
     (s-join   "." it))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(h-let (h* :x (h<-list '(flandrew srht site)))
  (format "%s.%s.%s" .x.0 .x.1 .x.2))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (let ((f '(flandrew "." srht "." site)))
    (while f (princ (pop f)))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (--each '((flan . "") (drew . ".") (srht . ".") (site . ""))
    (princ (car it)) (princ (cdr it))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (--each '((flan . "") (drew . ".") (srht . ".") (site . ""))
    (-let [(k . v) it] (princ k) (princ v))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (--each '((flan . "") (drew . ".") (srht . ".") (site . ""))
    (princ (format "%s%s" (car it) (cdr it)))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (--each '((flan . "") (drew . ".") (srht . ".") (site . ""))
    (pcase-let ((`(,k . ,v) it)) (princ k) (princ v))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (-each '((flan . "") (drew . ".") (srht . ".") (site . ""))
    (-lambda ((k . v)) (princ k) (princ v))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (-each '((flan . "") (drew . ".") (srht . ".") (site . ""))
    (pcase-lambda (`(,k . ,v)) (princ k) (princ v))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (map-do (lambda (k v) (princ k) (princ v))
          '((flan . "") (drew . ".") (srht . ".") (site . ""))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (-lambda ((k . v)) (princ k) (princ v))
        '((flan . "") (drew . ".") (srht . ".") (site . ""))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (pcase-lambda (`(,k . ,v)) (princ k) (princ v))
        '((flan . "") (drew . ".") (srht . ".") (site . ""))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (pcase-dolist (`(,k . ,v) '((flan . "")(drew . ".")(srht . ".")(site . "")))
    (princ k) (princ v)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (dolist (x '((flan . "") (drew . ".") (srht . ".") (site . "")))
    (princ (car x)) (princ (cdr x))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (dolist (x '((flan . "") (drew . ".") (srht . ".") (site . "")))
    (-let [(k . v) x] (princ k) (princ v))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (h--each (h* 'flan "" 'drew "." 'srht "." 'site "")
    (princ key) (princ value)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (h--each (h* 'flan "" 'drew "." 'srht "." 'site "")
    (princ (format "%s%s" key value))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (h-each (h* 'flan "" 'drew "." 'srht "." 'site "")
    (##and (princ %) (princ %2))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (h-each (h* 'flan "" 'drew "." 'srht "." 'site "")
    (##princ (format "%s%s" % %2))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (h-each (h* 'flan "" 'drew "." 'srht "." 'site "")
    (lambda (k v) (princ k) (princ v))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (h-each (h* 'flan "" 'drew "." 'srht "." 'site "")
    (lambda (k v) (princ (format "%s%s" k v)))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((htb (h-new)))
  (-doto htb
    (h-put! 'flan  "") (h-put! 'drew ".")
    (h-put! 'srht ".") (h-put! 'site  ""))
  (with-output-to-string
    (h--each htb (princ key) (princ value))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((htb (make-hash-table :test 'equal)))
  (puthash 'flan ""  htb) (puthash 'drew "." htb)
  (puthash 'srht "." htb) (puthash 'site ""  htb)
  (with-output-to-string
    (maphash (lambda (k v)
               (princ k) (princ v))
             htb)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((htb (h-new))
      (res ""))
  (-doto htb
    (h-put! "flan"  "") (h-put! "drew" ".")
    (h-put! "srht" ".") (h-put! "site"  ""))
  (h--each htb (setq res (concat res key value)))
  res)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((htb (make-hash-table :test 'equal))
      (res ""))
  (puthash "flan" ""  htb) (puthash "drew" "." htb)
  (puthash "srht" "." htb) (puthash "site" ""  htb)
  (maphash (lambda (k v)
             (setq res (concat res k v)))
           htb)
  res)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((htb (h-new))
      (res ""))
  (-doto htb
    (h-put! 'flan  "") (h-put! 'drew ".")
    (h-put! 'srht ".") (h-put! 'site  ""))
  (h--each htb (setq res (format "%s%s%s" res key value)))
  res)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((htb (make-hash-table :test 'equal))
      (res ""))
  (puthash 'flan ""  htb) (puthash 'drew "." htb)
  (puthash 'srht "." htb) (puthash 'site ""  htb)
  (maphash (lambda (k v)
             (setq res (format "%s%s%s" res k v)))
           htb)
  res)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (insert "flandrew srht site")
  (while (search-backward " " nil t 1) (replace-match "."))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (save-excursion (insert "flandrew srht site"))
  (while (search-forward " " nil t 1) (replace-match "."))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (insert "flandrew . srht . site")
  (while (search-backward " " nil t 1) (replace-match ""))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (save-excursion (insert "flandrew . srht . site"))
  (while (search-forward " " nil t 1) (replace-match ""))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (insert "flandrew DOT srht DOT site")
  (while (search-backward " DOT " nil t 1) (replace-match "."))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (save-excursion (insert "flandrew DOT srht DOT site"))
  (while (search-forward " DOT " nil t 1) (replace-match "."))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (insert "flandrew DOT srht DOT site" ?\n
          "is highly recommended — check it out!")
  (while (search-backward " DOT " nil t 1) (replace-match "."))
  (buffer-substring 1 19))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (save-excursion (insert "flandrew DOT srht DOT site" ?\n
                          "is highly recommended — check it out!"))
  (while (search-forward " DOT " nil t 1) (replace-match "."))
  (buffer-substring 1 (search-forward "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (insert "Foxtrot-Lima-Alfa-November-Delta-Romeo-Echo-Whiskey-Stop" ?-
          "Sierra-Romeo-Hotel-Tango-Stop-Sierra-India-Tango-Echo")
  (denato-region 1 (point))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (->> '( Foxtrot Lima Alfa November Delta Romeo Echo Whiskey Stop
          Sierra Romeo Hotel Tango Stop Sierra India Tango Echo)
       (-map #'symbol-name)  (s-join "-")  insert)
  (denato-region 1 (point))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (->> '( Foxtrot Lima Alfa November Delta Romeo Echo Whiskey Stop
          Sierra Romeo Hotel Tango Stop Sierra India Tango Echo)
       (-interpose '-)  (-map #'symbol-name)  string-join   insert)
  (denato-region 1 (point))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (insert
   "..-./.-../.-/-./-../.-././.--/.-.-.-/.../.-./..../-/.-.-.-/.../../-/.")
  (unmorse-region 1 (point))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> "..-./.-../.-/-./-../.-././.--/.-.-.-/.../.-./..../-/.-.-.-/.../../-/."
     (s-split "/")  (--map (car (rassoc it morse-code)))  (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> "Foxtrot-Lima-Alfa-November-Delta-Romeo-Echo-Whiskey-Stop-\
Sierra-Romeo-Hotel-Tango-Stop-Sierra-India-Tango-Echo"
     (s-split "-")  (--map (car (rassoc it nato-alphabet)))  (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(s-replace-all '(("dot" . ".") ("HUT!" . "srht")
                 ("webplace" . "site") (" " . ""))
               "flandrew dot HUT! dot webplace")
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc #'princ (-interleave '(flan drew srht site)
                             '(""   "."   "."   ""))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--tree-mapreduce
 (format "%s" it) (concat it acc)
 (-interleave '(flan drew srht site)
              '(""   "."   "."   "")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(-tree-mapreduce
 #'symbol-name #'concat
 (-interleave '(flan drew srht site)
              '( ##   \.   \.   ##)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--reduce (format "%s%s" acc it)
          (-interleave '(flan drew srht site)
                       '(""   "."   "."   "")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(h-let (h* 'flan ""  'drew "."
           'srht "." 'site "")
  (with-output-to-string
    (mapc #'princ `( flan ,.flan drew ,.drew
                     srht ,.srht site ,.site))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(h-let-it '(flan "" drew "." srht "." site "")
  (with-output-to-string
    (mapc #'princ `( flan ,.flan drew ,.drew
                     srht ,.srht site ,.site))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(h-let-it '(f "" d "." h "." s "")
  (with-output-to-string
    (mapc #'princ (list 'flan .f 'drew .d
                        'srht .h 'site .s))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(map-let (f d h s) '(f "" d "." h "." s "")
  (with-output-to-string
    (mapc #'princ (list 'flan f 'drew d
                        'srht h 'site s))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(h-let-it "\
| i | n    | p |
|---+------+---|
| f | flan |   |
| d | drew | . |
| h | srht | . |
| s | site |   |
"  (concat .f.n .f.p
           .d.n .d.p
           .h.n .h.p
           .s.n .s.p))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(h-let-it "{  \"f\": { \"i\": \"f\",
                       \"n\": \"flan\",
                       \"p\": \"\"
           }, \"d\": { \"i\": \"d\",
                       \"n\": \"drew\",
                       \"p\": \".\"
           }, \"h\": { \"i\": \"h\",
                       \"n\": \"srht\",
                       \"p\": \".\"
           }, \"s\": { \"i\": \"s\",
                       \"n\": \"site\",
                       \"p\": \"\" } }"
  (concat .f.n .f.p .d.n .d.p .h.n .h.p .s.n .s.p))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;; There're 16 ways to express 2 lambdas given 4 ways of expressing a lambda.
;; In cases like this, I used only equal types in each, to a total of 4.
(s-join "" (--splice (s-prefix? "s" it) (list "." it)
                     '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(s-join "" (-splice (##s-prefix? "s" %) (##list "." %)
                    '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(s-join "" (-splice (-cut s-prefix? "s" <>) (-cut list "." <>)
                    '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(s-join "" (-splice (lambda (x) (s-prefix? "s" x)) (lambda (x) (list "." x))
                    '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;; But I did consider s-join and string-join to be distinct enough.
(string-join (--splice (s-prefix? "s" it) (list "." it)
                       '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (-splice (##s-prefix? "s" %) (##list "." %)
                      '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (-splice (-cut s-prefix? "s" <>) (-cut list "." <>)
                      '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (-splice (lambda (x) (s-prefix? "s" x)) (lambda (x) (list "." x))
                      '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat
       (funcall (-compose (-cut -interpose "." <>)
                          (-cut -map #'symbol-name <>))
                '(flandrew srht site)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat
       (funcall (-compose (lambda (x) (-interpose "." x))
                          (lambda (x) (-map #'symbol-name x)))
                '(flandrew srht site)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat
       (funcall (-compose (##-interpose "." %)
                          (##-map #'symbol-name %))
                '(flandrew srht site)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;; It makes sense to make lambda and llama solutions dash-free when possible.
;; So we replace -map with mapcar in those cases.
(concat (--map (read (format "#x%s" it))
               (seq-split "666c616e647265772e737268742e73697465" 2)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (-map (-cut ->> <> (format "#x%s") read)
              (seq-split "666c616e647265772e737268742e73697465" 2)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (mapcar (##read (format "#x%s" %))
                (seq-split "666c616e647265772e737268742e73697465" 2)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (mapcar (lambda (x) (read (format "#x%s" x)))
                (seq-split "666c616e647265772e737268742e73697465" 2)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (--map (read (format "#x%s" it)) '( 66 6c 61 6e 64 72 65 77 2e
                                            73 72 68 74 2e 73 69 74 65)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (-map (-cut ->> <> (format "#x%s") read)
              '(66 6c 61 6e 64 72 65 77 2e 73 72 68 74 2e 73 69 74 65)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (mapcar (##read (format "#x%s" %)) '( 66 6c 61 6e 64 72 65 77 2e
                                              73 72 68 74 2e 73 69 74 65)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (mapcar (lambda (x) (read (format "#x%s" x)))
                '(66 6c 61 6e 64 72 65 77 2e 73 72 68 74 2e 73 69 74 65)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;; We can't -cut those. (Well, I couldn't.)
(s-join "" (--zip-with (concat (symbol-name it) (symbol-name other))
                       '(flandrew srht site) '(\. \. ##)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(s-join "" (-zip-with (##concat (symbol-name %) (symbol-name %2))
                      '(flandrew srht site) '(\. \. ##)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(s-join "" (-zip-with (lambda (x y) (concat (symbol-name x) (symbol-name y)))
                      '(flandrew srht site) '(\. \. ##)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (--zip-with (concat (symbol-name it) (symbol-name other))
                         '(flandrew srht site) '(\. \. ##)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (-zip-with (##concat (symbol-name %) (symbol-name %2))
                        '(flandrew srht site) '(\. \. ##)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (-zip-with (lambda (x y) (concat (symbol-name x) (symbol-name y)))
                        '(flandrew srht site) '(\. \. ##)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat (--mapcat (list (if (= 4 (length it)) "." "") it)
                          '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat (mapcan (##list (if (= 4 (length %)) "." "") %)
                        '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat (mapcan (lambda (x) (list (if (= 4 (length x)) "." "") x))
                        '("flandrew" "srht" "site")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(srht site flandrew)  (-rotate 1)
     (-map #'symbol-name)   (-interleave '("" "." "."))  (apply #'concat))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(srht drew site flan) (-map #'symbol-name)
     (-sort (-on #'< (-cut aref <> 2)))  ; sort by 3rd letter
     (-interleave '("" "" "." ".")) (apply #'concat))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(srht drew site flan)
     (-sort (-on #'< (-compose (-cut aref <> 2) #'symbol-name)))
     (-interleave '( ## ## \. \.))  ; space so it's not misfontified as a llama
     (-tree-mapreduce #'symbol-name #'concat))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (-map (-partial #'+ 96)
              '(6 12 1 14 4 18 5 23 -50 19 18 8 20 -50 19 9 20 5)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (mapcar (apply-partially #'+ 96)
                '(6 12 1 14 4 18 5 23 -50 19 18 8 20 -50 19 9 20 5)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (--map (+ 96 it)
               '(6 12 1 14 4 18 5 23 -50 19 18 8 20 -50 19 9 20 5)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (-map (-cut + 96 <>)
              '(6 12 1 14 4 18 5 23 -50 19 18 8 20 -50 19 9 20 5)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (mapcar (##+ 96 %)
                '(6 12 1 14 4 18 5 23 -50 19 18 8 20 -50 19 9 20 5)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(concat (mapcar (lambda (x) (+ 96 x))
                '(6 12 1 14 4 18 5 23 -50 19 18 8 20 -50 19 9 20 5)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;;             f  l a  n d  r e  w .  s  r h  t .  s i  t e
(let ((input '(6 12 1 14 4 18 5 23 0 19 18 8 20 0 19 9 20 5))
      (alpha '(\. a b c d e f g h i j k l m n o p q r s t u v w x y z)))
  (->> (-select-by-indices input alpha)
       (-map #'symbol-name)
       (s-join "")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((input '(6 12 1 14 4 18 5 23 0 19 18 8 20 0 19 9 20 5))
      (alpha '(\. a b c d e f g h i j k l m n o p q r s t u v w x y z)))
  (mapconcat #'symbol-name (-select-by-indices input alpha) ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((input '(6 12 1 14 4 18 5 23 0 19 18 8 20 0 19 9 20 5))
      (alpha ".abcdefghijklmnopqrstuvwxyz"))
  (concat (-select-by-indices input (string-to-list alpha))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;;                   (seq-sort #'< "flandrew.srht.site")
(let ((chars "..adeefhilnrrssttw")
      (grade '(6 9 2 10 3 11 4 17 0 13 12 7 15 1 14 8 16 5)))
  (concat (-select-by-indices grade (string-to-list chars))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;; (concat (seq-uniq (seq-sort #'< "flandrew.srht.site")))
(let ((chars ".adefhilnrstw")
      (grade '(4 7 1 8 2 9 3 12 0 10 9 5 11 0 10 6 11 3)))
  (concat (-select-by-indices grade (string-to-list chars))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;;              f  l a  n d  r e  w .  s  r h  t .  s i  t e
(let* ((input '(6 12 1 14 4 18 5 23 0 19 18 8 20 0 19 9 20 5))
       (alpha ".abcdefghijklmnopqrstuvwxyz")
       (table (h<-vector alpha)))
  (with-output-to-string
    (dolist (x input)
      (princ (string (h-get table x))))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;;     f  l a  n d  r e  w  s  r h  t  s i  t e
(->> '(6 12 1 14 4 18 5 23 19 18 8 20 19 9 20 5)
     (-map (-partial #'+ 96))
     (--partition-by-header (or (= it 115) (= it 102)))
     (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(6 12 1 14 4 18 5 23 19 18 8 20 19 9 20 5)
     (-map (-partial #'+ 96))
     (--partition-by-header (-> it (+ 2) (% 13) (= 0)))
     (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(6 12 1 14 4 18 5 23 19 18 8 20 19 9 20 5)
     (-map (-partial #'+ 96))
     (-partition-before-item 115)
     (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> [?f ?l ?a ?n ?d ?r ?e ?w ?s ?r ?h ?t ?s ?i ?t ?e]
     (--map it)
     (--partition-by-header (or (= it 115) (= it 102)))
     (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> [?f ?l ?a ?n ?d ?r ?e ?w ?s ?r ?h ?t ?s ?i ?t ?e]
     (--map it)
     (--partition-by-header (-> it (+ 2) (% 13) (= 0)))
     (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> [?f ?l ?a ?n ?d ?r ?e ?w ?s ?r ?h ?t ?s ?i ?t ?e]
     (--map it)  (-partition-before-item 115)  (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (--splice (eq it 's) (list '\. it))
     (-map #'symbol-name) (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (-splice (##eq % 's) (##list '\. %))
     (-map #'symbol-name) (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (-splice (-cut eq <> 's) (-cut list '\. <>))
     (-map #'symbol-name) (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (-splice (lambda (x) (eq x 's)) (lambda (x) (list '\. x)))
     (-map #'symbol-name) (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (--splice (eq it 's) (list '\. it))
     (-map #'symbol-name) string-join)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (-splice (##eq % 's) (##list '\. %))
     (-map #'symbol-name) string-join)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (-splice (-cut eq <> 's) (-cut list '\. <>))
     (-map #'symbol-name) string-join)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e)
     (-splice (lambda (x) (eq x 's)) (lambda (x) (list '\. x)))
     (-map #'symbol-name) string-join)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e) (-map #'symbol-name)
     (-insert-at 8 ".") (-insert-at 13 ".") (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(f l a n d r e w s r h t s i t e) (-map #'symbol-name)
     (-insert-at 8 ".") (-insert-at 13 ".") string-join)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;;         (make-string 18 ?o) would do it, too
(let ((oo "oooooooooooooooooo"))
  (dotimes (i (length oo))
    (aset oo i
          (aref "..adeefhilnrrssttw"
                (aref [6 9 2 10 3 11 4 17 0 13 12 7 15 1 14 8 16 5]
                      i))))
  oo)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> '(102 108 97 110 100 114 101 119 46 115 114 104 116 46 115 105 116 101)
     (-map #'byte-to-string) (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join
 (mapcar
  #'byte-to-string
  '(102 108 97 110 100 114 101 119 46 115 114 104 116 46 115 105 116 101)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (insert 102 108 97 110 100 114 101 119 46 115 114 104 116 46 115 105 116 101)
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (apply #'insert '( 102 108  97 110 100 114 101 119  46
                     115 114 104 116  46 115 105 116 101))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;; It makes sense to make llama and lambda solutions dash-free when possible.
;; So we replace #'-each with #'mapc in those cases.
(with-output-to-string
  (--each '( 102 108  97 110 100 114 101 119  46
             115 114 104 116  46 115 105 116 101)
    (princ (string it))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (-each '( 102 108  97 110 100 114 101 119  46
            115 114 104 116  46 115 105 116 101)
    (-cut -> <> string princ)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (##princ (string %))
        '( 102 108  97 110 100 114 101 119  46
           115 114 104 116  46 115 105 116 101)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (lambda (x) (princ (string x)))
        '( 102 108  97 110 100 114 101 119  46
           115 114 104 116  46 115 105 116 101)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (dolist (x '( 102 108  97 110 100 114 101 119  46
                115 114 104 116  46 115 105 116 101))
    (princ (string x))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let (r)
  (--each (seq-split "657469732e746872732e776572646e616c66" 2)
    (push (read (format "#x%s" it)) r))
  (concat r))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let (r)
  (-each (seq-split "657469732e746872732e776572646e616c66" 2)
    (-cut --> <> (format "#x%s" it) read (push it r)))
  (concat r))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let (r)
  (mapc (##push (read (format "#x%s" %)) r)
        (seq-split "657469732e746872732e776572646e616c66" 2))
  (concat r))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let (r)
  (mapc (lambda (x) (push (read (format "#x%s" x)) r))
        (seq-split "657469732e746872732e776572646e616c66" 2))
  (concat r))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let (r)
  (dolist (x (seq-split "657469732e746872732e776572646e616c66" 2) (concat r))
    (push (read (format "#x%s" x)) r)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (--each (seq-split "666c616e647265772e737268742e73697465" 2)
    (princ (string (read (format "#x%s" it))))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (-each (seq-split "666c616e647265772e737268742e73697465" 2)
    (-cut ->> <> (format "#x%s") read string princ)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (##princ (string (read (format "#x%s" %))))
        (seq-split "666c616e647265772e737268742e73697465" 2)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (lambda (x) (princ (string (read (format "#x%s" x)))))
        (seq-split "666c616e647265772e737268742e73697465" 2)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (dolist (x (seq-split "666c616e647265772e737268742e73697465" 2))
    (princ (string (read (format "#x%s" x))))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (--each '(66 6c 61 6e 64 72 65 77 2e 73 72 68 74 2e 73 69 74 65)
    (princ (string (read (format "#x%s" it))))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (-each '(66 6c 61 6e 64 72 65 77 2e 73 72 68 74 2e 73 69 74 65)
    (-cut ->> <> (format "#x%s") read string princ)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (##princ (string (read (format "#x%s" %))))
        '(66 6c 61 6e 64 72 65 77 2e 73 72 68 74 2e 73 69 74 65)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (mapc (lambda (x) (princ (string (read (format "#x%s" x)))))
        '(66 6c 61 6e 64 72 65 77 2e 73 72 68 74 2e 73 69 74 65)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-output-to-string
  (dolist (x '(66 6c 61 6e 64 72 65 77 2e 73 72 68 74 2e 73 69 74 65))
    (princ (string (read (format "#x%s" x))))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (apply #'insert (--map (read (format "#x%s" it))
                         '( 66 6c 61 6e 64 72 65 77 2e
                            73 72 68 74 2e 73 69 74 65)))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (apply #'insert (-map (-cut ->> <> (format "#x%s") read)
                        '( 66 6c 61 6e 64 72 65 77 2e
                           73 72 68 74 2e 73 69 74 65)))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (apply #'insert (mapcar (##read (format "#x%s" %))
                          '( 66 6c 61 6e 64 72 65 77 2e
                             73 72 68 74 2e 73 69 74 65)))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(with-temp-buffer
  (apply #'insert (mapcar (lambda (x) (read (format "#x%s" x)))
                          '( 66 6c 61 6e 64 72 65 77 2e
                             73 72 68 74 2e 73 69 74 65)))
  (buffer-string))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--> 8922333168972556460639709159120949077439589
     (format "%x" it) (seq-split it 2)
     (with-output-to-string (--each it
                              (->>  it (format "#x%s")
                                    read string princ))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--> "01100110 01101100 01100001 01101110 01100100 01110010 01100101 \
      01110111 00101110 01110011 01110010 01101000 01110100 00101110 \
      01110011 01101001 01110100 01100101" (s-split " " it t)
      (--map (read (format "#b%s" it)) it)  concat)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> "01100110 01101100 01100001 01101110 01100100 01110010 01100101 \
      01110111 00101110 01110011 01110010 01101000 01110100 00101110 \
      01110011 01101001 01110100 01100101" (s-split " ")  (remq "")
      (--map (read (format "#b%s" it)))  concat)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> "01100110 01101100 01100001 01101110 01100100 01110010 01100101 \
      01110111 00101110 01110011 01110010 01101000 01110100 00101110 \
      01110011 01101001 01110100 01100101" (s-split " ")  (remq "")
      (mapconcat (-cut ->> <> (format "#b%s") read string)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> "01100110 01101100 01100001 01101110 01100100 01110010 01100101 \
      01110111 00101110 01110011 01110010 01101000 01110100 00101110 \
      01110011 01101001 01110100 01100101" (s-split " ")  (remq "")
      (mapconcat (##string (read (format "#b%s" %)))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> "01100110 01101100 01100001 01101110 01100100 01110010 01100101 \
      01110111 00101110 01110011 01110010 01101000 01110100 00101110 \
      01110011 01101001 01110100 01100101" (s-split " ")  (remq "")
      (mapconcat (lambda (x) (string (read (format "#b%s" x))))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
;; This is definitely pure Emacs Lisp and I'm not at all tempted to use Bash...
(shell-command-to-string
 "printf 01100110011011000110000101101110011001000111001001100101011101110010\
1110011100110111001001101000011101000010111001110011011010010111010001100101 |
basenc -d --base2msbf")
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> (list nil t nil t nil t)
     (--zip-with (and other   it) ; this is not what it seems
                 '(   others  flandrew
                      forges  srht
                      places  site))
     (-non-nil) (-map #'symbol-name) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> (list nil t nil t nil t)
     (--zip-with (when other (symbol-name it))
                 '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> [nil t nil t nil t]
     (--map it) (--zip-with (when other (symbol-name it))
                            '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> (bool-vector nil t nil t nil t)
     (--map it) (--zip-with (when other (symbol-name it))
                            '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> (bool-vector nil t nil t nil t)
     (--map it) (-zip-with (##when %2 (symbol-name %))
                           '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> (bool-vector nil t nil t nil t)
     (--map it) (-zip-with (lambda (f o) (when o (symbol-name f)))
                           '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&6"\x2a" (--map it) (--zip-with (when other (symbol-name it))
                                      '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&6"\52" (--map it) (--zip-with (when other (symbol-name it))
                                     '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&6"*" (--map it) (--zip-with (when other (symbol-name it))
                                   '(others flandrew forges srht places site))
     (-non-nil) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&6"*" (--map it) (-zip-with #'cons
                                  '(others flandrew forges srht places site))
     (--keep (when (cdr it) (symbol-name (car it)))) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&6"*" (--map it) (-zip-with #'cons
                                  '(others flandrew forges srht places site))
     (-keep (-lambda ((k . v)) (when v (symbol-name k)))) (s-join "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (remq 'nil (seq-mapn (lambda (x y) (when x (symbol-name y)))
                                  (bool-vector nil t nil t nil t)
                                  [others flandrew forges srht places site]))
             ".")
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (remq 'nil (cl-mapcar (##when % (symbol-name %2))
                                   (bool-vector nil t nil t nil t)
                                   [others flandrew forges srht places site]))
             ".")
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&6"*" (--map it) (--zip-with (if other (symbol-name it) ".")
                                   '(others flandrew forges srht places site))
     cdr  (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (cdr (seq-mapn (lambda (x y) (if x (symbol-name y) "."))
                            (bool-vector nil t nil t nil t)
                            [others flandrew forges srht places site])))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(string-join (cdr (cl-mapcar (##if % (symbol-name %2) ".")
                             (bool-vector nil t nil t nil t)
                             [others flandrew forges srht places site])))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat (cdr (seq-mapn (lambda (x y) (if x (symbol-name y) "."))
                               (bool-vector nil t nil t nil t)
                               [others flandrew forges srht places site])))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(apply #'concat (cdr (cl-mapcar (##if % (symbol-name %2) ".")
                                (bool-vector nil t nil t nil t)
                                [others flandrew forges srht places site])))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(mapconcat #'symbol-name
           (remq 'nil (seq-mapn (lambda (x y) (when x y))
                                (bool-vector nil t nil t nil t)
                                [others flandrew forges srht places site]))
           ".")
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(mapconcat #'symbol-name
           (remq 'nil (cl-mapcar (##when % %2)
                                 (bool-vector nil t nil t nil t)
                                 [others flandrew forges srht places site]))
           ".")
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let* ((who '(others flandrew forges srht places site))
       (boo (bool-vector nil t nil t nil t))
       (len (length who)))
  (with-output-to-string
    (dotimes (i len)
      (when (elt boo i)
        (princ (elt who i))
        (unless (= len (1+ i))
          (princ "."))))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let* ((who '(others flandrew forges srht places site))
       (boo (bool-vector nil t nil t nil t))
       (len (length who))
       (str (with-output-to-string
              (dotimes (i len)
                (when (elt boo i)
                  (princ (elt who i))
                  (princ "."))))))
  (substring str 0 18))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let* ((who '(others flandrew forges srht places site))
       (boo (bool-vector nil t nil t nil t)))
  (dotimes (i (length who))
    (setf (nth i who) (when (elt boo i)
                        (symbol-name (nth i who)))))
  (string-join (remq 'nil who) "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let* ((who [others flandrew forges srht places site])
       (boo (bool-vector nil t nil t nil t)))
  (dotimes (i (length who))
    (aset who i (when (aref boo i)
                  (symbol-name (aref who i)))))
  (string-join (remq 'nil (append who nil)) "."))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((who [others flandrew forges srht places site])
      (boo [nil t nil t nil t]))
  (s-join "." (-non-nil
               (h-keys
                (h--zip-vectors-with (when value (h-as-string key))
                                     value who boo)))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let ((who [others flandrew forges srht places site])
      (boo [nil t nil t nil t]))
  (->> (h--zip-vectors-with (when value (h-as-string key))
                            value who boo)
       h-keys  -non-nil  (s-join ".")))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(-as-> #&144"flandrew.srht.site" x
       (prin1-to-string x)
       (when (string-match "\"\\(.*\\)\"" x)
         (match-string 1 x)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(-->
 #&144"\231\223\236\221\233\215\232\210\321\214\215\227\213\321\214\226\213\232"
 (bool-vector-not it)(prin1-to-string it)(when (string-match "\"\\(.*\\)\"" it)
                                           (match-string 1 it)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--> #&144"2\4\4N\27\33\21\22\21S;H\22A\1\16\33\21"
     (bool-vector-exclusive-or     #&144"The site? I forgot" it)
     (prin1-to-string it) (when (string-match "\"\\(.*\\)\"" it)
                            (match-string 1 it)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&144"f6\206v&N\246\356t\316N\026.t\316\226.\246"
     (--map it)  (-partition 8)
     (--map (->> it reverse (apply #'bool-vector) prin1-to-string reverse read))
     string-join)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&144"f6\206v&N\246\356t\316N\026.t\316\226.\246"
     (--map it)  (-partition 8)
     (--map (->> it reverse (apply #'bool-vector) (format "%S") reverse read))
     (s-join ""))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&144"f6\206v&N\246\356t\316N\026.t\316\226.\246"
     (--map it)  (--map-indexed (if it (expt 2 (- 7 (% it-index 8))) 0))
     (-partition 8)  (-map #'-sum)  concat)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> #&144"f6\206v&N\246\356t\316N\026.t\316\226.\246"
     (--map it)  (-partition 8)
     (-map (-cut ->> <> string-to-list
                 (--map-indexed (if it (expt 2 (- 7 it-index)) 0))
                 -sum))
     concat)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(let* ((f #&144"f6\206v&N\246\356t\316N\026.t\316\226.\246")
       (v (vconcat f)))
  (dotimes (i (length v))
    (aset v i (if (aref v i) (expt 2 (- 7 (% i 8))) 0)))
  (concat (mapcar (lambda (x) (apply #'+ (append x nil)))
                  (seq-partition v 8))))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(--> (bool-vector
      nil t   t   nil nil t   t   nil    nil nil t   t   nil t   t   nil
      t   nil nil nil nil t   t   nil    nil t   t   t   nil t   t   nil
      nil nil t   nil nil t   t   nil    nil t   nil nil t   t   t   nil
      t   nil t   nil nil t   t   nil    t   t   t   nil t   t   t   nil
      nil t   t   t   nil t   nil nil    t   t   nil nil t   t   t   nil
      nil t   nil nil t   t   t   nil    nil nil nil t   nil t   t   nil
      nil nil t   nil t   t   t   nil    nil t   t   t   nil t   nil nil
      t   t   nil nil t   t   t   nil    t   nil nil t   nil t   t   nil
      nil nil t   nil t   t   t   nil    t   nil t   nil nil t   t   nil)
     prin1-to-string     (when (string-match "\"\\(.*\\)\"" it)
                           (match-string 1 it)))
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄
(->> (bool-vector
      nil t   t   nil nil t   t   nil    nil nil t   t   nil t   t   nil
      t   nil nil nil nil t   t   nil    nil t   t   t   nil t   t   nil
      nil nil t   nil nil t   t   nil    nil t   nil nil t   t   t   nil
      t   nil t   nil nil t   t   nil    t   t   t   nil t   t   t   nil
      nil t   t   t   nil t   nil nil    t   t   nil nil t   t   t   nil
      nil t   nil nil t   t   t   nil    nil nil nil t   nil t   t   nil
      nil nil t   nil t   t   t   nil    nil t   t   t   nil t   nil nil
      t   t   nil nil t   t   t   nil    t   nil nil t   nil t   t   nil
      nil nil t   nil t   t   t   nil    t   nil t   nil nil t   t   nil)
     (--map it)
     (--map-indexed  (if it (expt 2 (% it-index 8)) 0))
     (-partition 8)  (-map #'-sum)  concat)
;;┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄

;;; flandrew's obsession does not end here

The house below is a portal to html code. It leads to Home.

📆 2026-W02-6📆 2026-01-10