:- module(seekn_parenthesis_right, [a/2]). a({/**/{t}}, [f(_T), f(_P), f(_A)]). a((/**/(t)), [f(_T), f(_P), f(_A)]).