(define list-of-numbers?
    (lambda (lst)
      (if (null? lst)
	  #t
	  (if (pair? lst)
	      (if (number? (car lst))
		  (list-of-numbers? (cdr lst))
		  #f)
	      #f))))