2 lines
96 B
Text
2 lines
96 B
Text
|
0 0 last [ dup @d->class &.integer = [ @d->xt @ + [ 1+ ] dip ] [ drop ] if ] ^types'LIST each@
|