#include using namespace std; #define REP(i,m,n) for(int i=(m); i<(int)(n); i++) #define RREP(i,m,n) for(int i=(int)(n-1); i>=m; i--) #define rep(i,n) REP(i,0,n) #define rrep(i,n) RREP(i,0,n) #define all(a) (a).begin(),(a).end() #define rall(a) (a).rbegin(),(a).rend() #define fi first #define se second #define debug(...) {cerr<<"[L"<<__LINE__<<"] "; _debug(__VA_ARGS__);} template string join(const vector&v, string del=", "){ stringstream s; for(auto x : v) s << del << x; return s.str().substr(del.size()); } template ostream& operator<<(ostream& o, const vector&v){ if(v.size()) o << "[" << join(v) << "]"; return o; } template ostream& operator<<(ostream& o, const vector >&vv){ int l = vv.size(); if(l){ o< void _debug(const First& first, const Rest&... rest){cerr< pii; typedef vector vi; typedef vector vvi; typedef vector vl; typedef vector vvl; const double PI = (1*acos(0.0)); const double EPS = 1e-9; const int INF = 0x3f3f3f3f; const ll INFL = 0x3f3f3f3f3f3f3f3fLL; const ll mod = 1e9 + 7; inline void finput(string filename) { freopen(filename.c_str(), "r", stdin); } int main(){ ios_base::sync_with_stdio(0); // finput("./input"); ll n, k; cin >> n >> k; vector ss(n); vl cost(n); rep(i,n) cin >> ss[i] >> cost[i]; vector ccnt(3, vvl(n)); rep(i,n){ rep(c,3) ccnt[c][i] = vl(ss[i].size()); rep(ii,ss[i].size()){ int ci = (ss[i][ii] == 'J') ? 0 : (ss[i][ii] == 'O') ? 1 : 2; ccnt[ci][i][ii]++; if(ii != 0){ rep(c,3) ccnt[c][i][ii] += ccnt[c][i][ii-1]; } } } vvl dp(3, vl(k+1, INFL)); rep(c,3) dp[c][0] = 0; rep(c,3) rep(i,n) rep(j,k){ int l = min(k, j + ccnt[c][i][ss[i].size()-1]); dp[c][l] = min(dp[c][l], dp[c][j] + cost[i]); } rep(c,3){ if(dp[c][k] == INFL){ cout << -1 << endl; return 0; } } ll ans = INFL; rep(i,n){ int mi = ss[i].size() - 1; rep(ii,mi+1){ if(ccnt[1][i][mi] - ccnt[1][i][ii] >= k){ REP(jj,ii+1,mi){ if(ccnt[1][i][jj] - ccnt[1][i][ii] >= k){ ll jcnt = ccnt[0][i][ii]; ll icnt = ccnt[2][i][mi] - ccnt[2][i][jj]; ll jcost = dp[0][max(k-jcnt, 0ll)]; ll icost = dp[2][max(k-icnt, 0ll)]; ans = min(ans, cost[i] + jcost + icost); } } }else{ rep(j,n){ int mj = ss[j].size() - 1; rep(jj,mj+1){ ll jcnt = ccnt[0][i][ii]; ll ocnt = ccnt[1][i][mi] - ccnt[1][i][ii] + ccnt[1][j][jj]; ll icnt = ccnt[2][j][mj] - ccnt[2][j][jj]; ll jcost = dp[0][max(k-jcnt, 0ll)]; ll ocost = dp[1][max(k-ocnt, 0ll)]; ll icost = dp[2][max(k-icnt, 0ll)]; ans = min(ans, cost[i] + cost[j] + jcost + ocost + icost); } } } } } cout << ans << endl; return 0; }