(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (p (make-array n :element-type 'integer))) (dotimes (i n) (setf (aref p i) (read))) (dotimes (i n) (let ((val (aref p i))) (if (= val 2) (format t "2~%") (format t "~d~%" (* (1- val) (1- val)))))))) (main)