Merry Gawkmas

Just so I don't forget this for next year:

while true; do echo $LINES $COLUMNS $(($RANDOM%$COLUMNS)); \
sleep 0.1;done|gawk '{a[$3]=4;for(x in a) {o=a[x];a[x]=a[x]+1; \
printf "\033[%s;%sH ",o,x;printf "\033[%s;%sH*\033[0;0H",a[x],x;}}'