first   [0]sa0 

<       Lr
>       Sr z0=a 
+       1+
-       1-
[       [ 
]       d 0!=f] Sf d 0!=f Lf Zd>r  
.       daP