; Sucet poslednych 2 prvkov lin. zoznamu

(defun last1 (N)
	(cond
		((NULL N) nil)
		((NULL (rest N)) (first N))
		(t (last1 (rest N)))
	)
)

(defun last2 (N)
	(cond
		((NULL N) nil)
		((NULL (rest N)) (first S))
		(t (last1 (rest N)))
	)
)

(defun sucet_last (N)
		(+ (last1(N)) (last2(N)))
)

(sucet_last '(1 2 3) )