(defun main (&rest argv)
  (declare (ignorable argv))
  (let* ((n (1+ (read)))
         (a (make-array (* n n) :element-type 'integer)))
    (loop for i below n
          do (loop for j below n
                   do (setf (aref a (+ (* i n) j)) (* (expt 2 i) (expt 5 j)))))
    (loop for b across (sort a #'<)
          do (format t "~d~%" b))))

(main)