(defun divide-coefficients-by-gcd (input &optional output)
    (return-from divide-coefficients-by-gcd (mapcar #'(lambda (y)
      (cons (/ (car y) (reduce #'get-gcd (mapcar #'(lambda (x) (car x)) input )))
            (cdr y)))
       input)))