How far can you optimize:

(Using notations like those of Cemetech Source Coder)

```
Input "Eq:",Str8
[[0->[E]
DelVar ADelVar B{0->EE
Str8+"+->Str8
inString(Ans,"=->C
DelVar U1->S
Repeat U=length(Str8
inString(Str8,"+",S->U
If Ans>C and S<C
C->U
sub(Str8,S,U-S->Str0
{0->A
Ans->E
DelVar NDelVar VDelVar WDelVar X0->Z
For(T,1,length(Str0
sub(Str0,T,1->Str9
If X
Then
inString("ieaouglrcnsbhdftypmkjqvmxz",Str9->Y
Z+1->Z
1-2(X>=30->|LA(Z
30Y+min(27,X->|LE(Z
End
If XY
Then
0->X
Else
inString("HCONBDAPSFGIKLMRTUVXYZWEJQ~-[e]plotcross*",Str9->X
End
If Ans
Then
If N
Then
For(theta,(W!=0)V+Znot(W),Z
N|LA(theta->|LA(theta
End
0->N
End
If W
Then
DelVar WDelVar V
End
Else
inString("0123456789",Str9
If Ans
Then
10N+Ans-1->N
Else
If N
Then
For(theta,(W!=0)V+Znot(W),Z
N|LA(theta->|LA(theta
End
0->N
End
If W
Then
DelVar VDelVar W
Else
If V
Then
Str9=")->W
Else
(Z+1)(Str9="(->V
End
End
End
End
End
If X
Then
1-2(X>=30->|LA(Z+1
min(27,X->|LE(Z+1
Else
If N
Then
For(theta,(W!=0)V+Znot(W),Z
N|LA(theta->|LA(theta
End
End
End
1-2(U>C->X
B+1->B
{max(1,A),B->dim([E]
For(theta,1,dim(|LE
If A
Then
sum(cumSum(|LEE=|LE(theta
If Ans
Then
A+1-Ans
[E](Ans,B)+X|LA(theta->[E](Ans,B
Else
A+1->A
|LE(theta->|LEE(A
{A,B->dim([E]
X|LA(theta->[E](A,B
End
Else
|LE(1->|LEE(1
X|LA(1->[E](1,B
1->A
End
End
U+1->S
End
A+1->A
max(A,B+1->X
{A,X->dim([E]
1->[E](A,1
1->[E](A,X
Matr>list(rref([E]),X,|LA
B->dim(|LA
cumSum(1+0|LA)not(not(fPart(|LA->E
SortD(|LE
sum(not(not(|LE->dim(|LE
For(theta,1,Ans
|LA(|LE(theta
If fPart(Ans
Then
{1,abs(Ans
Repeat |E~9>Ans(2
Ans(2){1,fPart(Ans(1)/Ans(2
End
|LAround(Ans(1)^^-1,0->A
End
End
Disp |LA
```

live the life because the life is good —vivir la vida, porque la vida es buena

Vie la vie que la vie est bonne quod est bonum vitae in vita

lebe das Leben, weil das Leben ist gut —vivere la vita, perché la vita è buona