benny, I think we already golfed that one.
but here is 22 just in case:
Code:
For Each $ in $a
	$c=$c+($>)
_________________________
!

download KiXnet