#include "bits/stdc++.h"
#include "atcoder/all"
using namespace std;
using namespace atcoder;
//using mint = modint1000000007;
//const int mod = 1000000007;
using mint = modint998244353;
const int mod = 998244353;
//const int INF = 1e9;
//const long long LINF = 1e18;
//const bool debug = false;
#define rep(i, n) for (int i = 0; i < (n); ++i)
#define rep2(i,l,r)for(int i=(l);i<(r);++i)
#define rrep(i, n) for (int i = (n-1); i >= 0; --i)
#define rrep2(i,l,r)for(int i=(r-1);i>=(l);--i)
#define all(x) (x).begin(),(x).end()
#define allR(x) (x).rbegin(),(x).rend()
#define endl "\n"
#define P pair<int,int>
template<typename A, typename B> inline bool chmax(A & a, const B & b) { if (a < b) { a = b; return true; } return false; }
template<typename A, typename B> inline bool chmin(A & a, const B & b) { if (a > b) { a = b; return true; } return false; }
string s;
map<pair<int, int>, int>mp;
int mex(int x, int y) {
	if ((0 != x) && (0 != y))return 0;
	if (1 == x + y)return 2;
	return 1;
}
vector<mint> dfs(int l, int r) {
	vector<mint>v(3);
	if ('m' == s[l]) {
		int pos = mp[{l + 3, r - 1}];
		auto lv = dfs(l + 4, pos);
		auto rv = dfs(pos + 1, r - 1);
		//mex
		if ('a' != s[l + 1]) rep(i, 3)rep(j, 3) v[mex(i, j)] += lv[i] * rv[j];
		//max
		if ('e' != s[l + 1]) rep(i, 3)rep(j, 3) v[max(i, j)] += lv[i] * rv[j];
	}
	else {
		if ('?' == s[l]) rep(i, 3)v[i]++;
		else v[s[l] - '0']++;
	}
	return v;
}
int main() {
	ios::sync_with_stdio(false);
	cin.tie(nullptr);
	cin >> s;
	stack <int>st;
	rep(i, s.size()) {
		if ('(' == s[i]) {
			st.push(i);
		}
		else if (',' == s[i]) {
			st.push(i);
		}
		else if (')' == s[i]) {
			int y = st.top();
			st.pop();
			int x = st.top();
			st.pop();
			mp[{x, i}] = y;
		}
	}
	int k; cin >> k;
	auto v = dfs(0, s.size());
	cout << v[k].val() << endl;
	return 0;
}