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