(define logwr 
	(lambda (x)
	  (if (null? x)
	      #t
	      (display (car x) (logwr (cdr x))))))