@%&#$!
You missed this one:
;;; -*- lexical-binding: t -*-
;;
;; this file:
;; https://dataswamp.org/~incal/emacs-init/comic-book-insult.el
(require 'seq)
(defun scramble-string (str)
"Randomize the characters of STR."
(seq-sort (lambda (_ __) (zerop (random 2))) str) )
(defun comic-book-insult ()
(interactive)
(insert (concat (scramble-string "@#$%&") "!")) )
;; (comic-book-insult) ; #$%&@!
;; (comic-book-insult) ; $&#@%!
;; (scramble-string "Sail Ho!") ; oHli!aS
--
underground experts united
https://dataswamp.org/~incal