ALGO_IT(A,p,r)
STQ1=STQ2=STR=STRET=LAST=NIL
cp=p;
cr=r;
while(cp<=cr || str != nil)do
	if(cp<=cr)then
		ret=0
		if(cp=cr)then
			ret=A[ci]
			+uscita solita
		else
			q1=[cp+2cr/3]
			cr=q1
			str=push(str,cr)
			stq1=push(stq1,q1)
	else
		top(str);
		top(stq1);
	if(last=q1)then
		ret=val
		stret=push(stret,ret)
		str=push(str,cr)
		q2=push(stq2)
		q2=[2cp+cr/3]
		cp=q1+1
		cr=q2
	else
		if(last != cr && last != q1)then
			ret=top(stret)+val
			pop(stret)
			ret=push(stret,ret)
			cp=q2+1 //preparo l'ultima chiamata
		else
			ret=top(stret)+val
			pop(stret)
			ret=push(stret,ret)

	+ uscita solita + pop(tutto) + return val perché faccio alla fine ret=val