[X4U] Need Script Editing Advice

[Cubeistan]

I saw on Daring Fireball the script below that does a word count in
conjunction with ThisService, and want to edit it, so it counts
characters. Can anyone tell me what to edit/substitute? Thanks in advance!


on process(_str)
	tell application "System Events"
		set _appname to name of first process whose frontmost is true
	end tell
	tell application _appname
		display alert "Word count: " & (count words of _str)
	end tell
end process