Написать программу, которая получает список из списков из списков чисел

listfunction:: [[[Int]]] ->[[Int]]->[Int] -> [Int]
listfunction [[[]]] =[]
listfunction (((x: xs))) = x+xs: listfunktion (xs)
listfunktion (x: xs) = if x <=20 then 0 else x+xs
listfunktion (x:xs) = x: reverse xs

solve :: [[[Int]]] -> [Int]
solve lst =
        reverse $ filter (\x -> x > 20) $ map sumIntern lst
            where sumIntern l = sum $ map sum l
 
main = print $ solve [[[1,2],[3,4]],[[5,6],[7,8]],[[10,11],[12,13]]]

listfunction xs = reverse $ filter (>20) $ map (sum . concat) xs

task :: [[[Int]]] -> [Int]
task lst = reverse [x|x<-[sum $ concat l|l<-lst],x>20]

map :: (a -> b) -> [a] -> [b]
map _ []     = []
map f (x:xs) = f x : map f xs

mymap::(a -> b) -> [a] -> [b]
mymap _ [] = [] -- map от пустого списка - пустой список
mymap f (x:xs) = [f x] ++ mymap f xs -- иначе map вызывает функцию f для "головы" списка и себя для "хвоста".
                                     -- результаты образует новый список.
 
main = print $ mymap (+1) [1, 2, 3]

mymap f (x:xs) = f x : mymap f x

task x n = reverse $ filter (>= n) tmp 
              where tmp = map sum $ map concat x
 
Main> task [[[1,2],[3,4]],[[5,6],[7,8]],[[10,11],[12,13]]] 20
[46,26]
Main> task [[[1,2],[3,4]],[[5,6],[7,8]],[[10,11],[12,13]]] 30
[46]
Main> task [[[1,2],[3,4]],[[5,6],[7,8]],[[10,11],[12,13]]] 40
[46]
Main> task [[[1,2],[3,4]],[[5,6],[7,8]],[[10,11],[12,13]]] 50
[]