Applescript to make a group of subfolders