sqrtEquation :: (RealFloat a, RealFloat b, RealFloat c) => a -> b -> c -> String
sqrtEquation a b c
  | d < 0 = "No solutions"
  | d == 0 = (show x1)
  | d > 0 = (show x1) ++ " and " ++ (show x2)
  where d = (b*b - 4*a*c)
        x1 = ((-b + sqrt(d))/2*a)
	x2 = ((-b - sqrt(d))/2*a)
 
 
main = do
  putStr "Input a:"
  a <- getLine
  putStr "Input b:"
  b <- getLine
  putStr "Input c:"
  c <- getLine
  putStrLn result
  where result = sqrtEquation a b c
 

c3FydEVxdWF0aW9uIDo6IChSZWFsRmxvYXQgYSwgUmVhbEZsb2F0IGIsIFJlYWxGbG9hdCBjKSA9PiBhIC0+IGIgLT4gYyAtPiBTdHJpbmcKc3FydEVxdWF0aW9uIGEgYiBjCiAgfCBkIDwgMCA9ICJObyBzb2x1dGlvbnMiCiAgfCBkID09IDAgPSAoc2hvdyB4MSkKICB8IGQgPiAwID0gKHNob3cgeDEpICsrICIgYW5kICIgKysgKHNob3cgeDIpCiAgd2hlcmUgZCA9IChiKmIgLSA0KmEqYykKICAgICAgICB4MSA9ICgoLWIgKyBzcXJ0KGQpKS8yKmEpCgl4MiA9ICgoLWIgLSBzcXJ0KGQpKS8yKmEpCgoKbWFpbiA9IGRvCiAgcHV0U3RyICJJbnB1dCBhOiIKICBhIDwtIGdldExpbmUKICBwdXRTdHIgIklucHV0IGI6IgogIGIgPC0gZ2V0TGluZQogIHB1dFN0ciAiSW5wdXQgYzoiCiAgYyA8LSBnZXRMaW5lCiAgcHV0U3RyTG4gcmVzdWx0CiAgd2hlcmUgcmVzdWx0ID0gc3FydEVxdWF0aW9uIGEgYiBjCg==