@prog rmatch.muf
1 99 d
1 i
: say me @ swap notify ;
: usage "Usage: " trigger @ name strcat " <place> <name>" strcat say ;
: main
	dup " " instr
	dup not if usage exit then
	1 - strcut 1 strcut swap pop swap
	match
	dup not if "Not valid place." say exit then
	swap rmatch
	dup not if "Remote match failed." say exit then
	dup #-2 dbcmp if "Ambiguous." say exit then
	dup #-3 dbcmp if "Home." say exit then
	dup name " (#" strcat over int intostr strcat
	swap flagstr strcat ")" strcat
	say
;
.
c
q