Click here to download c19/test-alloc.scm.

#lang scheme

(define (make-list size)
  (if (zero? size) '() (cons 0 (make-list (sub1 size)))))

(define (make-lists number size)
  (if (zero? number)
      (void)
      (let ((L (make-list size)))
        (display number)(newline)
        (make-lists (sub1 number) size))))