content: set filePaths to get (choose file of type {"png"} with multiple selections allowed)
  
  set sizes_width to {750, 1242, 640, 640, 750, 2048}
  set sizes_height to {1334, 2208, 1136, 960, 1024, 2732}
  
  repeat with filePath in filePaths
  	set imagePath to get POSIX path of filePath
  	tell application "Finder"
  		set saveDirectory to get (folder of filePath as Unicode text)
  		set fileName to name of filePath as Unicode text
  	end tell
  	
  	repeat with i from 1 to 6
  		tell application "Image Events"
  			launch
  			set img to open imagePath
  			scale img to size item i of sizes_height
  			crop img to dimensions {item i of sizes_width, item i of sizes_height}
  			set imgName to (item i of sizes_width as string) & "x" & (item i of sizes_height as string) & "_" & fileName
  			save img in file (saveDirectory & imgName) as PNG
  			close img
  		end tell
  	end repeat
  end repeat