:- object(salesman).
:- info([
author is 'Paulo Moura',
version is 1.0,
date is 2000/4/22,
comment is '.',
source is 'Example adopted from the Francis G. McCabe L&O documentation.']).
:- op(400, yfx, ~).
:- public(route/2).
:- mode(route(+list, -nonvar), zero_or_more).
:- end_object.
