perl -e'$x=" " x 1024 x 1024 x 256; while(1) { $x=~s/ /./g; $x=~s/./ /g;}'