set myDoc to (choose file with prompt "Choose a pdf" without invisibles) 
set pathToDoc to POSIX path of myDoc 
 
set allFonts to paragraphs of (do shell script "tr '\\r' '\\n' < ../../" & quoted form of pathToDoc & " | egrep -ao \"FontName.*/\" | cut -d '/' -f 2") 
 
set fontList to {} 
repeat with i from 1 to number of items in allFonts 
	set thisItem to item i of allFonts 
	if thisItem contains "+" then 
		set thisItem to do shell script "echo " & thisItem & " | cut -d'+' -f2 " 
		set fontList to fontList & thisItem 
	else 
		set fontList to fontList & thisItem 
	end if 
end repeat 
fontList 

do shell script "tr '\\r' '\\n' < ../../" & quoted form of pathToDoc & " | egrep -ao \"FontName.*/\" | cut -d '/' -f 2") 

do shell script "sed < " & quoted form of POSIX path of (choose file) & " | egrep -ao \"FontName.*/\" | cut -d '/' -f 2" 

do shell script "/usr/local/bin/pdffonts " & quoted form of POSIX path of (choose file)