>>> rest <- S.print $ S.break even $ each [1,1,2,3] 1 1 >>> S.print rest 2 3
>>> rest <- each [1..10] & L.purely S.breakWhen L.sum (>10) & S.print 1 2 3 4 >>> S.print rest 5 6 7 8 9 10
>>> S.print $ mapped S.toList $ S.breaks not $ S.each [False,True,True,False,True,True,False] [True,True] [True,True] >>> S.print $ mapped S.toList $ S.breaks id $ S.each [False,True,True,False,True,True,False] [False] [False] [False]