(def connect (host port) ($ (let-values (((in out) (tcp-connect ,host ,port))) (list in out))))
(def disconnect (out) ($ (close-output-port ,out)))
-----