#!/usr/local/bin/sbcl --script
(defun enigma (L)

(if (null L) () (append (enigma (cdr L)) (list (car L))))

)

(print (enigma (1 2 3)))