-- | Rounds double to precision of 2 digits after deciaml point.
round2 :: Double -> Double
round2 n = round (n * 100) /. 100
round2 :: Double -> Double
round2 n = round (n * 100) /. 100
round2 n = round (n * 100) /. 100