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