@prog personal-disconnect.muf
1 999 d
1 i
: say me @ swap notify ;
: do-new
	1 begin
		".do_disconnect-" over intostr strcat
		me @ over prop-exists?
	while
		me @ swap getpropstr me @ swap force
		1 +
	loop
	pop pop
;
: main
	me @ "me" match dbcmp not if exit then
	do-new
;
.
c
q