(defun main () (let* ((A (read)) (B (read)) (H (read)) (W (read)) (nonrotate (min (* B B H H) (* A A W W))) (rotate (min (* A A H H) (* B B W W)))) (cond ((> nonrotate rotate) (format t "Non-rotating~%")) ((> rotate nonrotate) (format t "Rotating~%")) (t (format t "Same~%"))))) (main)