[ GonearSub x; x=noun; while (parent(x)~=0) x=parent(x); PlayerTo(x); ];