7 lines
160 B
Scheme
7 lines
160 B
Scheme
(module embed-me5 mzscheme
|
|
(require (lib "mred.ss" "mred"))
|
|
(with-output-to-file "stdout"
|
|
(lambda () (printf "This is 5: ~s\n" button%))
|
|
'append))
|
|
|