(defun min-perimeter-rectangle (n)
  (let ((i 1)
        (min most-positive-fixnum))
    (loop while (< (* i i) n)
          do (progn
               (when (zerop (mod n i))
                 (setf min (min min (* 2 (+ i (/ n i))))))
               (incf i)))
    min))