USING: grouping math.vectors prettyprint sequences.extras ;
{ 1 2 2 3 4 4 5 } 2 <clumps> [ all-eq? ] arg-where 1 v+n .