use strict;
use warnings;
$\ = $/;
while (<DATA>) {
	chomp;
	my $v= ((/{/ .. /}/) || 0);
	if ($v==1) {
		@_=();
	} elsif ($v=~/E0$/) {
		print "@_";
	} else {
		push @_, $_;
	}
}