macro 'Fill Holes & Waterhshed [4]' {
	dir = getDirectory("Choose a Directory ");
	list = getFileList(dir);
	setBatchMode(true);
	for (i=0; i<list.length; i++) {
		showProgress(i+1, list.length);
		path = dir+list[i];
		open(path);
		title = getTitle();
		run("Fill Holes");
		run("Watershed");
		dotIndex = lastIndexOf(path, ".");
          	if (dotIndex!=-1) {;
              		path = substring(path, 0, dotIndex); // remove extension
          		save(path+".gif");
		}
		run("Close");
	}
}