(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (a (loop repeat n collect (read))) (d (reduce #'gcd a))) (dotimes (i n) (setf (nth i a) (floor (nth i a) d))) (format t "~{~d~^:~}~%" a))) (main)