(defun main () (let* ((s1 (read)) (s2 (read))) (princ (cond ((not (or (eq s1 'SAT) (eq s1 'SUN))) "8/31") ((not (or (eq s2 'SAT) (eq s2 'SUN))) "8/32") (t "8/33"))) (terpri))) (main)