#                                                                                                       1         1         1
#             1         2         3         4         5         6         7         8         9         0         1         2    
#    123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890
perl -e'use Time::HiRes"usleep";$|=1;for(;;){$_=(int rand 9)/2;/\.5/?print"wub ":print"wooo ";usleep 1e5}'