more off;
i=0;

do
 i += 1;
 if (mod (i,100) == 0)
   disp (i);
 endif

 data = rand (1e5, 1);
 #clf
 #cla
 plot (data);
 drawnow;

until (i > 5e3)
