perlmonksrule(9);
sub perlmonksrule
{
	if ($_[0]) { perlmonksrule($_[0]-1); }
	$_ = (caller(0))[3]; 
	s/sr/s r/;
	print /::(.*)$/,"!\n";
}