(loop for c = (read-char *standard-input* nil nil)
      while c do
      (cond ((>= (char-code c) 127)
             (format t "&#~D;" (char-code c)))
            (t
             (write-char c))))
(force-output)
(ccl:quit)