[plt-scheme] telnet client in scheme

Hello,

I just want to know if a client telnet made in scheme allready exist and
where can i found it ...

(define-values (p-in p-out) (tcp-connect "host" 23))

(do ((lu (read-line p-in) (read-line p-in)))
  (printf "~a" lu))

and it's send me nothing back but i see the connexion opened in the telnetd
log. Am I missing something ?

Christophe

Nice, France