2 lines
105 B
Text
2 lines
105 B
Text
|
#0 #0 [ dup d:class fetch &class:integer eq? [ d:xt fetch + [ n:inc ] dip ] [ drop ] choose ] d:for-each
|