[SWI Prolog] Определить, из бумаги какого цвета вырезан ромб

nomer(1).
nomer(2).
nomer(3).
nomer(4).
figura(treugolnik).
figura(romb).
figura(krug).
figura(kvadrat).
bumaga(belaya).
bumaga(sinyaya).
bumaga(krasnaya).
bumaga(zelenaya).
solve(Table):-
Table = [table(X, XFigura, XBumaga), table(Y, YFigura, YBumaga), table(W, WFigura, WBumaga), table(Z, ZFigura, ZBumaga)],
nomer(X), nomer(Y), nomer(W), nomer(Z), unique([X, Y, W, Z]),
figura(XFigura), figura(YFigura), figura(WFigura), figura(ZFigura), unique[(XFigura, YFigura, WFigura, ZFigura)],
bumaga(XBumaga), bumaga(YBumaga), bumaga(WBumaga), bumaga(ZBumaga), unique[(XBumaga, YBumaga, WBumaga, ZBumaga)],
% круг не белый и не зеленый
not(member(table(_, krug, belaya), Table)),
not(member(table(_, krug, zelenaya), Table)),
% синяя фигура между ромбом и красной фигурой
nextto([_, _, sinyaya], [_, romb, _], Table),
nextto([_, _, krasnaya], [_, _, sinyaya], Table),
% треугольник не зеленый и не синий
not(member(table(_, treugolnik, sinyaya), Table)),
not(member(table(_, treugolnik, zelenaya), Table)),
% квадрат между треугольником и белой фигурой
nextto([_, kvadrat, _], [_, treugolnik, _], Table),
nextto([_, _, belaya, _], [_, kvadrat, _], Table).

solve(Table),
member(table(_, romb, RombColor), Table),
write(RombColor).