Alın size bir güzel kod:) Benim hoşuma gitti eminim sizin hoşunuzada gidecek. 

  1. (define (goster str)
  2.   (let loop ((str str))
  3.     (if (equal? str "")
  4.         (begin
  5.           (sleep 0)
  6.           (display ""))
  7.         (begin
  8.           (sleep 1/2)
  9.           (display (string-ref str 0))
  10.           (loop (substring str 1))))))