##
perl -e'$|=1;{print+(int rand 9)%2?"wub ":"wooo ";select$u,$u,$u,.1;redo}'
##
##
perl -e'$|=1;{print rand(9)%2?"wub ":"wooo ";select$u,$u,$u,.1;redo}'
1 2 3 4 5 6
1234567890123456789012345678901234567890123456789012345678901234