(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((c1 (read-char))
         (sp (read-char))
         (c2 (read-char)))
    (declare (ignore c1) (ignore sp))
    (write-line (ecase c2
                  (#\2 "4")
                  (#\3 "1")
                  (#\? "14")))))
(main)