9 lines
160 B
Racket
9 lines
160 B
Racket
#lang racket
|
|
(require (prefix-in uni: 2htdp/universe))
|
|
|
|
(define (server)
|
|
(uni:universe 0
|
|
(uni:on-new cons)
|
|
(uni:on-msg list)
|
|
(uni:on-tick add1)))
|