(refuse 
	:sender (agent-identifier :name j)
	:receiver (set (agent-identifier :name i))
	:content "open \"db.txt\" for input"
	:language vb)