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