@prog pagecleanup.muf
1 999 d
1 i
: say me @ swap notify ;
: pageobj #447 ;
: main
	begin
		0
		pageobj propfirst
		begin while
			( p1 ... pN N obj prop )
			dup 4 strcut swap "page" strcmp if
				pop 1
			else
				dup atoi dup intostr rot strcmp if
					pop 1
				else
					dbref player? if
						1
					else
						dup -4 rotate rot 1 +
						dup 200 > if
							swap pop swap pop 0
						else
							rot rot 1
						then
					then
				then
			then
		while
			propnext
		loop
	dup while
		begin dup 0 > while
			1 - swap
			me @ over notify
			pageobj swap remove_prop
		loop pop
	loop
	"Done." say
;
.
c
q