[ ObjectScopedBySomething item i j k l m; i = item; while (parent(i) ~= 0) i=parent(i); objectloop (j .& add_to_scope) { l = j.&add_to_scope; k = (j.#add_to_scope)/2; if (l-->0 ofclass Routine) continue; for (m=0:mm == i) return j; } rfalse; ];