RosettaCodeData/Task/Loops-Nested/Haskell/loops-nested-1.hs

import Data.List

breakIncl p =  uncurry ((. take 1). (++)). break p

taskLLB k = map (breakIncl (==k)). breakIncl (k`elem`)