DouKaku?

(use gauche.net)
(use util.stream)

(call-with-client-socket
    (make-client-socket 'inet (car *argv*) (x->integer (cadr *argv*)))
  (lambda (i o)
    (stream-for-each
     (lambda (l)
       (display #`",|l|\n" o)
       (print (read-line i)))
     (port->stream (current-input-port) read-line))))