11 lines
170 B
Racket
11 lines
170 B
Racket
#lang racket
|
|
|
|
(require racket/system)
|
|
(define (flash str)
|
|
(system "tput smcup")
|
|
(displayln str)
|
|
(sleep 2)
|
|
(system "tput rmcup")
|
|
(void))
|
|
|
|
(flash "Hello world.")
|