#!/usr/bin/perl -lw
use strict;

while( <DATA> ) {
    chomp;
    if(  ! m[TIMINGCHECK]  ) {
        print;
        next;
    }
    my $count= tr[(][(] - tr[)][)];
    do {
        s[^][//];
        print;
        last    # Leaves the while( <DATA> ) loop
            if  ! defined( $_= <DATA> );
        chomp;
        $count += tr[(][(] - tr[)][)];
    } while(  0 <= $count  );
    print;
}