sub foo {
	@files = ();
	bar(@_);
	shift;
	foo(@_) if @_;
}