Сценарій, щоб видалити всі групи в контактах

Я хотів би мати сценарій для видалення всіх моїх груп у своїх контактах. Якось у мене з’явилася якась помилка реплікації, в результаті якої було понад 500 груп.
Видалити їх по черзі - це не варіант.

Спробував цей сценарій, але він не справляється, мені доведеться ввести багато назв груп і через деякий час срип припиняється, навіть якщо не всі групи були видалені.

tell application "Contacts" 
repeat 50 times 
set theGroup to group "MyGroupName" 
delete theGroup 
end repeat 
save
end tell

Будь-яка допомога буде дуже вдячна.

Причина того, що скрипт не видаляє всі фіктивні групи, полягає в тому, що він повторюється лише 50 разів, тому він видалить лише 50 за один раз.

Цей скрипт буде видаляти кожну групу з ім'ям, яке ви вводите (він запитує вас у діалоговому вікні), поки він не зможе знайти більше:

set counter to 0
display dialog "Name of group to delete?" default answer ""
set theGroupName to text returned of result
tell application "Contacts"
    repeat
        try
            set theGroup to group theGroupName
            delete theGroup
            set counter to counter + 1
        on error
            exit repeat
        end try
    end repeat
    save
    display dialog "Removed " & counter & " instances of the group" with icon caution buttons {"OK"} default button "OK"
end tell