main = let (first, rest) = (takeWhile p l, dropWhile p l) in rest