: randomize ( seq -- seq' )
    dup length 1-
    [ dup 1 > ] [
        [ [0,b) random ] keep dup 
        [ rot [ exchange ] keep ] dip 1-
    ] [ drop ] while ;