sub t{print"\e];@_\a";select($@,$@,$@,.02)}
$|++;$t=shift;@l=1..25;for(;;){t" "x$_,$t for@l,reverse@l}