filterL p (x:xs) | p x       = x : filterL p xs
                 | otherwise = filterL p xs
filterL p (x:xs) | p x       = x : filterL p xs
                 | otherwise = filterL p xs
filterL p (x:xs) | p x       = x : filterL p xs
                 | otherwise = filterL p xs