spiel(s1,hsv,schalke,0,1).
spiel(s2,schalke,bvb,3,2).
spiel(s3,bayern,hsv,5,1).
spiel(s4,schalke,hsv,3,3).
spiel(s5,bvb,schalke,1,2).
spiel(s6,hsv,bayern,1,0).
hatGewH(A,B,S):-spiel(S,A,B,N,M),N>M.
hatGewR(A,B,S):-spiel(S,B,A,N,M),M>N.
gew(A,S):-hatGewH(A,B,S);hatGewR(A,B,S).