(let ((S (read)))
     (case S
           ((E) (print 'F))
           ((B) (print 'C))
           (else (print S "#"))))