before(Object, Message, Sender)
	This is a pre-declared but user-defined public method for handling before events.
before(?object, ?term, ?object)
(none)
before(Object, Message, Sender) :-
    writeq(Object), write('::'), writeq(Message),
    write(' from '), writeq(Sender), nl.