@sum[$a] += $x;        end {emitp  @sum               }
