average :: Fractional a => [a] -> a
average l = sum [a/(fromIntegral $ length l) | a <- l]
average :: Fractional a => [a] -> a
average l = sum [a/(fromIntegral $ length l) | a <- l]
average l = sum [a/(fromIntegral $ length l) | a <- l]