[Haskell-beginners] How to improve the accuracy of floating point calculation?