So the current Mode routine has always bugged me, mainly because it looks more like a fully-fledged program than short snippet of code. It also seems to be rather large for the task its trying to do. I didn't want to just outright delete it, but here is a much more optimized version I came up with that could replace it. Input list is L₁ (cannot be a complex list) and output list of modes is L₃.

```
:ClrList L₂,L₃
:iL₁(1)+sum(L₁=L₁(1→L₂(1
:For(L,2,dim(L₁
:If not(max(L₁(L)=imag(L₂
:iL₁(L)+sum(L₁=L₁(L→L₂(1+dim(L₂
:End
:For(L,1,dim(L₂
:If real(L₂(L))=max(real(L₂
:imag(L₂(L→L₃(1+dim(L₃
:End
```

Put simply, this code puts each entry in L₁ along with the number of times it occurs into L₂ as a complex number (once per unique entry). It then finds the number(s) that occur the most and transfers it/them to L₃. I haven't run any speed tests yet, but I don't see anything that would slow it significantly (especially compared to the current alternative).

The solution to a complex problem is often a simple answer.