Aristotle => sub {
		my $str = shift;
		my $level = shift || return $str;

		$str =~ /.*\((.*?)\)/ and return $1 if $level == -1;

		local $_ = substr $str, 0, -$level;
		/\G.*?\(/gc while $level--;
		return substr $_, pos;
	},