(define (roots a b c)
  (let ([radicant (sqrt (- (* b b) (* 4 a c)))])
    (list
      (/ (+ (- b) radicant) (* 2 a))
      (/ (- (- b) radicant) (* 2 a)))))


(displayln (roots 2 5 (- 3)))