pro wd,num=num
if (n_elements(num) le 0.) then num=5.
for a=0,num-1. do begin
wdelete
endfor
end