;*******************************
;Last
;*******************************
; I/O examples:  

(setf last-test 
	(list 
			(cons '(a) 'a) 
			(cons '(a b) 'b) 
			(cons '(a b c) 'c) 
			(cons '(a b c d) 'd)
	) 
)