tervitus():- writeln('tere'), halt(0). % swipl -f kaivitus1.pl -g tervitus -q