(defun f (a b c)
    (let ((t (sqrt (- (* b b) (* 4 a c))))
      (values (/ (+ (- b) t)) (* 2 a)))
              (/ (- (- b) t)  (* 2 a))))