Yana Teras yanateras

## threading-macro.lisp
(defmacro -> (&rest forms)
  (reduce #'(lambda (xs x) (append x (list xs))) forms))

## threading-macro.el
(defmacro -> (&rest forms)
  (cl-reduce #'(lambda (xs x) (append x (list xs))) forms))

## perl666.pl
use v6.6.6;

## koan.lisp
(defmacro defmacro (&rest koan)
  `(defmacro defmacro (&rest koan)
     `(defmacro ,,@koan
        `(defmacro ,,@koan))))
	(defmacro -> (&rest forms)
	(reduce #'(lambda (xs x) (append x (list xs))) forms))
	(defmacro -> (&rest forms)
	(cl-reduce #'(lambda (xs x) (append x (list xs))) forms))
	(defmacro defmacro (&rest koan)
	`(defmacro defmacro (&rest koan)
	`(defmacro ,,@koan
	`(defmacro ,,@koan))))