InString(Str1,"+",1+Ans(Ans>0)->L1(1+dim(L1)
For(E,1,dim(L1:
Lenght(Sub(str1,L1(E),L1(E)-L1(E-(E>0)->L3(1+dim(L3
End
SortD(L3)
L3(1->Z
For(E,1,dim(L1
Sub(str1,L1(E),L1(E)-L1(E-(E>0)->Str2
While Length(Str3<>Z
"0"+str2->Str2
End
For(Z,1,dim(L3,4
Sub(Str2,Z+)->L1
End