valid bracket list in prolog

Question

I\'m trying to test if a list of brackets is valid. My code:

checkbrackets([]).

checkbrackets([\'(\'|T]):-
    T = [\')\'|List],
    checkbrackets(List).

ch