下面这组data，打算对列求和。 用data step可以如下做，现在打算把
   sum1+summer1;
   sum2+summer2;
   sum3+summer3;
   sum4+summer4;
换成用macro来改写，应该怎么写？  折腾了好久都没弄出来，求教。
我试着用array可以做，macro总是说有问题。谁能帮我写一下code？ 谢谢

data wide;
   input name $ summer1-summer4;
   cards;
   a 1 2 3 4
   b 1 2 3 4
   c 1 2 3 4
;

data sum_data;
   set wide end=lastobs;
   sum1+summer1;
   sum2+summer2;
   sum3+summer3;
   sum4+summer4;
   keep sum1-sum4;
   if lastobs then output;
run;

proc print data=sum_data;
run;