9 lines
192 B
Racket
9 lines
192 B
Racket
#lang racket
|
|
|
|
(require 2htdp/universe 2htdp/image)
|
|
|
|
(universe 0
|
|
(on-tick (lambda (w) (make-bundle (add1 w) '() '())) 1/28 3)
|
|
(on-msg void)
|
|
(on-new cons))
|
|
|