write_data spends too much time to create file.



File  "new.dat"  is created with the following instructions:

(%i1)array(new,1000,1);
(%i2) for a:0 thru 1000 step 1 do (new[a,0]:a,new[a,1]:a+1);
(%i3) write_data(new,"new.dat");

After finishing the "for", "write_data"  spends 37 seconds to write the 
file "new.dat".
Is there  a way to do the job faster?
Thanks:Morales