(define list_of_numbers
  (lambda (ls)
	  (cond [(null? ls) #t]
		[(pair? ls) (and (number? (car ls))
				 (list_of_numbers (cdr ls)))]
		[else #f])))