package B::Syntax;
sub compile {
    return sub {
	$O::BEGIN_output =~ /Syntax OK/ ? exit 0 : exit 1;
    }
};
1;