     unzip cum-sum [ last random ] [ bisect-left ] bi swap nth ;
 
 : unique-indices ( seq -- unique indices )
-    [ members ] keep over dup length <iota> H{ } zip-as '[ _ at ] map ;
+    [ members ] keep over dup length <iota>
+    H{ } zip-as '[ _ at ] map ;
 
 : digitize] ( seq bins -- seq' )
     '[ _ bisect-left ] map ;

    seq natural-sort :> sorted
    seq length :> len
    sorted 0 [ + ] cum-reduce :> ( a b )
    b len a * / :> B
    1 len recip + 2 B * - ;

PRIVATE>


                y yr = [ drop x ] when
            ] when
        ] when
    ] if-empty ;

PRIVATE>

