(defun main (&rest argv) (declare (ignorable argv)) (let* ((a (read)) (b (read))) (format t "~a~%" (cond ((> (+ a b) (* a b)) "S") ((> (* a b) (+ a b)) "P") (t "E"))))) (main)