(define (reverse xs)
	(if (null? xs)
		'()
		(append (reverse (cdr xs)) (list (car xs)))))
		
(define x (list 1 2 3))

(display (reverse x))
(newline)

(display (append (list (caddr x)) (append (list (cadr x)) (append (list (car x)) '()))))
(newline)

(display (append (list (caddr x)) (append (list (cadr x)) (list (car x)))))
(newline)