{WOBURN CHALLENGE VII}
{PROGRAM DECODE}

var inf, outf: text;
    s, stack: string;
    i, k: integer;
    bad: boolean;

begin
     assign(inf, 'decode.in');
     assign(outf, 'decode.out');
     reset(inf);
     rewrite(outf);
     readln(inf, k);
     while k>0 do begin
           dec(k);
           readln(inf, s);
           bad:=false;
           stack:='';
           for i:=1 to length(s) do begin
               if s[i] in ['[','(','{','<'] then stack:=s[i]+stack
               else if s[i] in [']',')','}','>'] then begin
                    if stack='' then bad:=true;
                    if (s[i]=']') and (stack[1]='[') or
                       (s[i]=')') and (stack[1]='(') or
                       (s[i]='}') and (stack[1]='{') or
                       (s[i]='>') and (stack[1]='<') then delete(stack, 1, 1)
                    else bad:=true;
               end;
           end;
           if stack<>'' then bad:=true;
           if bad then writeln(outf, 'FALSE') else writeln(outf, 'TRUE');
     end;
     close(inf);
     close(outf);
end.Downloader failed!
Response object
006~ASP 0159~Buffering Off~Buffering must be on.