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

yes = f x where f x = concat . map head