import Data.List (foldl')

avg list =
    let (count, sum) = foldl' collect (0, 0) list
    in fromIntegral sum / count

  where
    collect (count, sum) item =
        count `seq`
        sum   `seq`
            (count + 1, sum + item)