main = let (first, rest) = span p l in rest