@prog backlocks.muf
1 999 d
1 i
: say me @ swap notify ;
: main
	match
	dup #-1 dbcmp if
		"I don't see that here." say exit
	then
	dup #-2 dbcmp if
		"You'll have to clarify that." say exit
	then
	dup #-3 dbcmp if
		"HOME has no backlocks." say exit
	then
	backlocks
	dup 0 > if
		1 swap 1 for pop me @ unparse_object say loop
	else
		pop "** None **" say
	then
;
.
c
q