[plt-scheme] insert in a text%

how can I insert the result of function such as


(define (table x)
  (do ((i 0 (+ i 1)))
       ((= i 5))
          (printf "---> ~a\n"  (+ i x))))

in a text% editor for instance if I do
...
(define text1 (new text%))

(send text1 insert (format "a\n" (table 3)))  

I get the result in drscheme toplevel and #<void> in
my editor-canvas%

thanks




	

	
		
Découvrez le nouveau Yahoo! Mail : 250 Mo d'espace de stockage pour vos mails ! 
Créez votre Yahoo! Mail sur http://fr.mail.yahoo.com/