say sum(([Z-] get.words xx 2)>>.abs)/2