% Maciej Kowalczyk

wart(["[","]"|L], L, 0).
wart(["{","}"|L], L, 1).

wart(["["|L], R, W) :- wart(L,R1,0), wart(["["|R1],R,W).
wart(["["|L], R, 1) :- wart(L,R1,1), wart(["["|R1],R,_).
wart(["{"|L], R, 0) :- wart(L,R1,0), wart(["{"|R1],R,_).
wart(["{"|L], R, W) :- wart(L,R1,1), wart(["{"|R1],R,W).

wart(L,W):- wart(L,[],W).