13/06/2019
ALGO_IT(A,p,r,L)
STQ=STR=STP=STL'=LAST=NIL
CP=P; CR=R;
While(cp<=cr || str!=nil)do
	if(cp<=cr)then
		L'=Allocanodo()
		Q =[(cp+cr/2)]
		L->key=A[q]
		if(A[Q]%2=0)then
			stq=push(stq,q)
			stp=push(stp,cp) // Non capisco perché tu ti pushi L' qui quando va assegnato dopo nella risalita (penso)
			cp=q+1
		else
			stq=push(stq,q)
			str=push(str,cr)
			cr=q-1
	else
		top(stq); top(str); top(stp);
		if(A[q]%2=0)then
			if(last!=q-1)then //sto in I chiamata
				L'->next=val
				STL'=push(STL',L')
				cr=q-1
				L=L'
			else
				top(STL'); pop(STL');
				ret=val
				+ uscita dall'algoritmo
		else
			if(last!=cr)then
				L'->next=val
				STL'=push(STL',L')
				cp=q+1
				L=L'
			else
				top(STL'); pop(STL')
				ret=val
				+ uscita dall'algoritmo