(define singleton?
	(lambda (lst)
		(cond
			((null? lst)
				#f)
			((null? (cdr lst)
					#t)
			)
			(else #f)
		)
	)
)