KeynoteのファイルをPDFにExportするAppleScript

set DIR to "/path/to/keynote/"
set fin to (DIR & "Untitled.key") as POSIX file
set fout to (DIR & "Untitiled.pdf") as POSIX file

tell application "Keynote"
	activate
	open fin
	export document 1 to fout as PDF with properties {compression factor:1.0, export style:IndividualSlides, skipped slides:false, all stages:true}
end tell