Нужно подсчитать среднее арифметическое способом, который уже почти реализован

total :: [Integer] -> Integer
total l = count 0 l
count n l = if l == []
                  then n
                  else let x = head l 
                           xs = tail l 
                       in count (n+x) xs
 
numb :: [Integer] -> Integer
numb l = sch 0 l
sch n l = if l == []
                  then n
                  else let x = head l 
                           xs = tail l 
                       in sch (n+1) xs
 
avg :: [Integer] -> [Integer] -> Double
avg [] = 0.0
avg (x) = (total x)/(numb x)

total :: [Integer] -> Integer
total [] = 0
total (x:xs) = x + total xs
 
numb :: [Integer] -> Integer
numb [] = 0
numb (x:xs) = 1 + numb xs
 
avg :: [Integer] -> Double
avg x =  (fromIntegral (total x))/(fromIntegral (numb x))

Main> avg [1,2,3,4,5,6,7,8,9]
5.0

main :: IO ()
main = do putStrLn "Введите список чисел: "
          lst <- getLine
          putStrLn "Среднее арифметическое равно: "
          print . avg $ read lst

main = do PutStrLn "Enter the list: "
                                 x <- Read
                         PutStr "Average is "
                         print avg x