(require math/base)

(define EMPTY ".")

(define INIT-WORLD
  (make-vector 100
               (make-vector 100 EMPTY)))

(define WORLD INIT-WORLD)

(define (DISP)
  (for ([line WORLD])
    (for ([c line])
      (display c))
    (display #\newline)))



(DISP)