(define singleton?
  (lambda (sexpr)
    (and (pair? sexpr)
	 (null? (cdr sexpr)))))