Automator: Komprese obrázků přes AppleScript

on run {input, parameters}
    set output to {}
    repeat with aPath in input
        tell application "Image Events"
            set aPicture to open aPath
            try
                scale aPicture by factor 1
                set end of output to save aPicture as JPEG with compression level low
            on error errorMessage
                log errorMessage
            end try
            close aPicture
        end tell
    end repeat
    return output -- next action processes edited files.
end run