Close Tabs to the Right of Active Tab

tell application "Safari"
    set indexActive to index of current tab of window 1
    repeat until (get index of last tab of window 1) = indexActive
        close last tab of window 1
    end repeat
end tell