sum := proc(l)
   description `returns the sum`;
   local i,s; 
   s := 0;
   for i from 1 to nops(l) do
     s := s + l[i];
   end do;
   return s;
end proc;