(defun simple-unix-eval (host command)
  (with-open-stream (s (chaos:open-stream host
					  (string-append "EVAL " command)))
    (format t "~&@c ~A~%" command)
    (do ((c))
	((null (setq c (send s :tyi))))
      (send standard-output :tyo
	    (selectq c
	      ((#o12 #o15) #\return)
	      (#o11 #\tab)
	      (t c))))))