:-initialization tervitus.

tervitus():- writeln('tere'), halt(0).

% swipl -f kaivitus2.pl