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
```