(lambda command
(match command
(('get-line) (read-line in-port))
(('send strings ...) (write-line (conc (apply conc strings) "\r") out-port))
(('set-user! u) (set! user u))
(('set-password! p) (set! password p))
(lambda command
(match command
(('get-line) (read-line in-port))
(('send strings ...) (write-line (conc (apply conc strings) "\r") out-port))
(('set-user! u) (set! user u))
(('set-password! p) (set! password p))