Apple script to save any images as low fidelity JPG

save_as_small_jpg.scpt

on run {input, parameters}
	set theList to input
	
	repeat with a from 1 to length of theList
		set theCurrentListItem to item a of theList
		
		set theFilePath to theCurrentListItem
		set theFile to theFilePath as alias
		
		tell application "Image Events"
			set theImage to open theFile
			save theImage as JPEG in theFile with compression level low
		end tell
	end repeat
	
	return input
end run