5 lines
99 B
Scheme
5 lines
99 B
Scheme
#lang scheme/base
|
|
(require 2htdp/universe)
|
|
(big-bang 1
|
|
(on-tick add1)
|
|
(state #t)) |