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

% swipl -o kaivitus3.exe -g tervitus -c kaivitus3.pl