take n

(require srfi/41)

(define (take n stream)
  (stream-for-each (lambda (delim item)
                     (display delim)
                     (display item)
                   )
                   (stream-cons "" (stream-constant ", "))
                   (stream-take n stream)
  )
)