filt :: (a -> Bool) -> [a] -> [a]
filt p = foldr (\x xs -> if p x then x:xs else xs) []
filt :: (a -> Bool) -> [a] -> [a]
filt p = foldr (\x xs -> if p x then x:xs else xs) []
filt p = foldr (\x xs -> if p x then x:xs else xs) []