(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((c (read-char)))
    (cond ((char= c #\B) (format t "C~%"))
          ((char= c #\E) (format t "F~%"))
          (t (format t "~c#~%" c)))))

(main)