1         2         3         4         5     
     1234567890123456789012345678901234567890123456789012345
perl -e'select$u,$u,$u,.1while$|=print rand>5/9?wub:wooo,$"'