on run {input, parameters}
	
	set theInput to (input as text)
	set myCount to count (theInput)
	set myWords to count words of (theInput)
	set myParas to count paragraphs of (theInput)
	tell me
		activate
		display dialog "Characters: " & myCount & return & "Words: " & myWords & return & "Paragraphs: " & myParas buttons {"Thanks"} default button 1
	end tell
	return input
end run