*f = sub {
	$::count++;
	END { print "f() called $::count times\n" };
	goto \&Roman::roman;
};