AppleScript: optimizing loops