mean :: Fractional a =>  [a] -> a
mean xs = DL.sum xs / fromIntegral (length xs)
mean :: Fractional a =>  [a] -> a
mean xs = DL.sum xs / fromIntegral (length xs)
mean xs = DL.sum xs / fromIntegral (length xs)