pipe.clj

(fn [& args]
 (apply
  ((*tricks* (nth args 0)) :func)
  (drop 1 args)
 )
)

pp.clj

(let [heads "8B:", bodies "=", ends "D>)", funs " .,-#@​'"]
    (str 
      (rand-nth heads)
      (apply str (let [body (rand-nth bodies)] (for [i (range (+ 3 (rand-int 4)))] body)))
      (rand-nth ends)
      " "
      (apply str (for [i (range (+ 4 (rand-int 5)))] (rand-nth funs)))
    )
)

uwu.clj

;; Copyright (c) <year> <copyright holders>
;;
;; Permission is hereby granted, free of charge, to any person obtaining a copy
;; of this software and associated documentation files (the "Software"), to deal
;; in the Software without restriction, including without limitation the rights
;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;; copies of the Software, and to permit persons to whom the Software is
;; furnished to do so, subject to the following conditions:
;;
;; The above copyright notice and this permission notice shall be included in all
;; copies or substantial portions of the Software.
;;
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE.

(fn [& s]
  (-> (clojure.string/join " " s) 
    (clojure.string/replace (re-pattern "[lr]") "w")
    (clojure.string/replace (re-pattern "[LR]") "W")
    (clojure.string/replace (re-pattern "(\\w|^)s(\\W|$)") "$1th$2")
    (clojure.string/replace (re-pattern "([nNmM])([ao])") "$1y$2")
    (clojure.string/replace (re-pattern "( |^)(\\w)") (fn [[g0 g1 g2]] (if (< (Math/random) 0.15) (str g1 g2 "-" g2) g0)))))