nachbar(franzose,grieche).
nachbar(grieche,franzose).
nachbar(italiener,japaner).
nachbar(japaner,italiener).


run:-permutation([franzose,grieche,italiener,japaner],PL),
%Reihenfolge der Familien: hubert,mueller,schmitt,vogel
        PL=[_,italiener,_,_],
        PL\=[_,_,grieche,_],
        PL=[_,_,S,V],nachbar(S,V),
        write(' hubert   mueller   schmitt   vogel'),nl,
        write(PL).