(defun sumset (N l)
  (cond ((null l) nil)
	((= N (car l)) (list N))
	((< N (car l))  (sumset N (cdr l)))
	((null (sumset (- N (car l)) (cdr l)))
		(sumset N (cdr l)))
	(t (cons (car l) (sumset (- N (car l)) (cdr l))))
))