@prog tess-world-switch.muf
1 999 d
1 i
: main
	trigger @ "holder" getpropstr atoi dbref
	dup "other-loc" getpropstr atoi dbref swap
	( loc holder )
	0 me @ contents begin dup while swap 1 + over next loop pop
	dup 2 + rotate
	( loc list N holder )
	begin dup contents dup while me @ moveto loop pop
	swap dup if 1 -1 for pop swap over moveto loop else pop then
	"other-loc" loc @ int intostr 0 addprop
	trigger @ dup unlink swap addlink
	1
;
.
c
q