s(n):=block([summe,i],summe:0,for i thru n do summe:summe+i,summe)$