Alın size bir güzel kod:) Benim hoşuma gitti eminim sizin hoşunuzada gidecek.
(define (goster str)
(let loop ((str str))
(if (equal? str "")
(begin
(sleep 0)
(display ""))
(begin
(sleep 1/2)
(display (string-ref str 0))
(loop (substring str 1))))))