perl -e '$a="a";$n=1;$s=time;print"SEC\tWORD\tITER\n";while(){print"\r",time-$s,"\t$a\t$n   ";$a++&&$n++}'