apply-refact-0.1.0.0: tests/examples/Default82.hs

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