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