[brehaut]

You can replace (\x -> (length x, head x)) with (length &&& head) if you import Control.Arrow to make it fully point free

[jamwt]

Good idea re: Arrows, and we can go all out as long as we're using them. :-)

rle = group >>> map (length &&& head)

[eru]

And stream fusion should get rid of intermediate data structures.