aidez nous!!!!!!!!!!svp

est ce que quelqu'un connait scheme pour nous aider sur une fonction sans retour:
(define (lireTexte)
  ;permet de saisir un texte se terminant par un caractère #\$ au clavier
  ;
  (let (( a (read-char))(ch (string)))
   
 (if (not(string=? (string a) "$"))
     (begin (let ((texte (string-append ch (string a))))
            (lireTexte)))))
merci beaucoup a ceux qui prendront le temps de nous répondre