#lang racket
(provide for-each displayln)

;; ------------------------------------------------------------------------
;; You saw the functions in the reading for today.
;; ------------------------------------------------------------------------

(define (for-each proc lst)            ; like map, but it doesn't use space
  (if (null? lst)
      (void)
      (begin
        (proc (first lst))
        (for-each proc (rest lst)))))

(define (displayln . lst)              ; replaces the 1-argument primitive
  (for-each display lst)
  (newline))

;; ------------------------------------------------------------------------