werknemer(jansen,1,5).
werknemer(pietersen,2,3).
werknemer(dirksen,1,2).
werknemer(klaassen,4,1).
werknemer(petersen,5,8).
werknemer(evertsen,1,7).
werknemer(nelissen,1,9).

afdeling(1,directie).
afdeling(2,personeels_dienst).
afdeling(3,productie).
afdeling(4,technische_dienst).
afdeling(5,administratie).

salaris(1,1000).
salaris(2,1500).
salaris(3,2000).
salaris(4,2500).
salaris(5,3000).
salaris(6,3500).
salaris(7,4000).
salaris(8,4500).
salaris(9,5000).

selectie(X,Y) :-
     call(X),
     call(Y),
     write(X),
     nl, 
     fail.
selectie(_,_).

projectie(X, Y) :-
     call(X),
     write(Y),
     nl, 
     fail.
projectie(_, _).

join(X, Y, Z) :-
     call(X),
     call(Y),
     call(Z),
     write(X),
     write(Y),
     nl,
     fail.
join(_, _, _).
