2 |
1. Top List
2. u : Top
3. v : Top List
4. L2:Top List, n: (||v||+1). firstn(n;v @ L2) ~ firstn(n;v)
L2:Top List, n: (||v||+1+1).
if 0< n [u / firstn(n-1;v @ L2)] else nil fi ~ if 0< n [u / firstn(n-1;v)]
if 0< n [u / firstn(n-1;v @ L2)] else nil fi ~ else nil fi
 | 2 steps |