% clear a plurality of figures

function returns_nothing(beg,end)

if beg<end
  for k=beg:end
    figure(k)
    clg
  end%for
else
  for k=beg:-1:end
    figure(k)
    clg
  end%for
end%if