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