(define (display-all . all)
  (when (not (null? all))
	(begin
	  (display (car all))
	  (apply display-all (cdr all)))))