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

%  swipl -f kaivitus1.pl -g tervitus -q