: radomize3 ( seq -- seq' ) dup length 1 (a,b] [ dup random pick exchange ] each ;