Удалить из заданного списка все числа - Scheme, Haskell

(define myList '())
(set! myList (read))
(define func1 (lambda (x)
     (if (null? x)
          null
          (if (not(pair? (car x)))
              (func1(cdr x))
              (cons (func1 (car x)) (func1 (cdr x)))))))
(func1 myList)

t :: [Int] -> [Int]
t _ = []

data MadList = Number Int | Meat String  deriving (Eq,Show)
 
delNum :: [MadList] -> [MadList]
delNum [] = []
delNum ((Number _):xs) = delNum xs
delNum (x:xs)          = x : (delNum xs)
 
Main> delNum [Number 1, Number 2, Meat "renyxa", Number 3 , Meat "renyxa"]
[Meat "renyxa",Meat "renyxa"]

import Data.Dynamic
 
delNum :: [Dynamic] -> [Dynamic]
delNum [] = []
delNum (x:xs) 
    | fromDynamic x == (Nothing :: Maybe Int) = x : delNum xs
    | otherwise = delNum xs
    
main :: IO () 
main = print $ delNum [toDyn (1 :: Int), 
                       toDyn "abc", 
                       toDyn (2 :: Int), 
                       toDyn (3.4 :: Double)]