: main
	dup not if pop me @ "Done." notify exit then
	.pmatch+
	dup not if
		pop me @ "Done." notify exit then
	dup .fmatch me @ swap notify
	dup numowned "Owned> " swap intostr strcat me @ swap notify
	me @ "Purge <y/n>?" notify read
	"y" stringcmp if
		pop "Done." exit then
	nextowned begin dup while
		dup ok? not if nextowned else
		dup .fmatch me @ swap notify
		me @ "Recycle?" notify read "y" stringcmp if
			nextowned
		else
			dup nextowned swap
			dup me @ chown recycle
		then then loop
	me @ "Done." notify
;