sub regexp2code (&) {
	require B::Deparse;
	my $re = shift;
	'(do ' . B::Deparse->new->coderef2text($re) . ')';
}

LUA_STYLE: {
	use re::engine::Lua;
	CORE::say regexp2code { qr(%a) };
}

PERL_STYLE: {
	CORE::say regexp2code { qr(%a) };
}