list_type func(list_type A)
{
list_type B = list_init();
pos_type P = list_anchor(A);
int sum = 0;
while(!list_is_empty(A))
{
sum += list_retrieve(A,P);
if(list_retrieve(A,P) < list_retrieve(A,P=list_next(A,P)))
	{
		list_insert(&B,&(list_end(B)),sum);
	sum = 0;
}
}
return B;
}

list_type blah(list_type L1)
----
{
pos_type p1,p2;
list_type L2;
list_info_type x,y;
p1 = list_next(L1,list_anchor);
p2 = list_anchor(L2);
while (p1!=list_end(L1))
	{
		list_retrieve(L1,p1,&x);
		list_retrieve(L2,p2,&y);
	if(x<y)
		sum=sum+x;
	else
{
		sum=sum+x;
		list_insert(L2,p2,sum);
		p2=list_next(L2,p2);
		sum=0;	
}
	p1=list_next(L1,p1);
}
return L2;
}