SYMBOL: mibor-assoc SYMBOL: mibor-row : with-mibor-bulk ( bulk quot -- ) swap [ [ first index-assoc mibor-assoc set ] [ 1 tail [ mibor-row set call( -- ) ] each ] bi ] with-scope ; ! The recursive word (each-integer) digs arbitrarily deep into the stack