AZ
(prefix expect expect:)
(chicken io))
(expect:call-with-process-io
"telnet"
(lambda (in out)
(expect:expect out "telnet>")
(display "help\n" out)
(read-line in)
(newline)
(display (read-line in))))
Вот пример, успешно прочитал первую строку из telnet help