(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((s (read-line)))
    (format t "~a~%"
      (ecase (aref s 0)
        (#\Z "1st")
        (#\B "2nd")
        (#\S "3rd")
        (#\E "4th")
        (#\D "Alpha")))))

(main)