:- object(salesman). :- info([ authors 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.