%%%%%%%%%%%%%%%%%%%%%%%%

%Avoiding Memory Leaks %

%%%%%%%%%%%%%%%%%%%%%%%%

local fun {Sum X L1 L} 

	 case L1 of Y|L2

	 then {Sum X+Y L2 L}

	 else X

	 end

      end

in local L = [1 2 3] in

      {Browse {Sum 0 L L}}

   end

end



local fun {Sum X L1}

	 case L1 of Y|L2 then {Sum X+Y L2}

	 else X

	 end

      end

in  local L = [1 2 3] in

      {Browse {Sum 0 L}}

   end

end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%