#include <bits/stdc++.h>
using namespace std;
#define fio ios_base::sync_with_stdio(false);cin.tie(NULL);cout.tie(NULL)
#define watch(x) cout << (#x) << " is " << (x) << endl
#define f(t) for(ll i=0;i<t;i++)
#define ll long long int
#define ld long double
#define umpl unordered_map<ll,ll>
#define vl vector<ll>
#define vld vector<ld>
#define vvl vector<vl>
#define pb push_back
#define pll pair<ll,ll>
#define inf 1e18
#define pcout(x,p) cout<<fixed<<setprecision(p)<<x
#define all(a) a.begin(),a.end()
#define endl "\n"
const ll mod = 1e9 + 7;
inline ll mul(ll a, ll b) { return (a * 1ll * b) % mod; }
inline ll sub(ll a, ll b) { ll c = a - b; if (c < 0) c += mod; return c; }
inline ll add(ll a, ll b) { ll c = a + b; if (c >= mod) c -= mod; return c; }
inline ll max(ll a, ll b) {return a > b ? a : b;}
inline ll min(ll a, ll b) {return a < b ? a : b;}
inline ll ceil(ll a, ll b) {return (a % b == 0) ? (a / b) : (a / b + 1);}
const ll maxn = 5001;
ll more[maxn][maxn];
vl dp_before, dp_curr;
ll cost(ll i, ll j) {
return more[j][j] - more[i - 1][j] - more[j][i - 1] + more[i - 1][i - 1];
}
void compute(ll l, ll r, ll low, ll high) {
if (l > r)return;
ll mid = (l + r) / 2;
pll best = {inf, -1};
for (ll k = low; k <= min(mid, high); k++) {
best = min(best, {dp_before[k - 1] + cost(k, mid), k});
}
dp_curr[mid] = best.first;
ll now = best.second;
compute(l, mid - 1, low, now);
compute(mid + 1, r, now, high);
}
int main() {
fio;
ll t; cin >> t;
while (t--) {
ll n, k; cin >> n >> k;
vl a(n + 1);
for (ll i = 1; i <= n; i++)cin >> a[i];
memset(more, 0, sizeof(more));
for (int i = 1; i <= n; i++) {
for (int j = 1; j <= i; j++) {
if (a[j] > a[i]) {
more[i][j] = a[j];
}
}
}
for (int i = 1; i <= n; i++) {
for (int j = 1; j <= n; j++) {
more[i][j] = more[i - 1][j] + more[i][j - 1] - more[i - 1][j - 1] + more[i][j];
}
}
dp_before.resize(n + 1), dp_curr.resize(n + 1);
for (int i = 1; i <= n; i++) {
dp_before[i] = cost(1, i);
}
for (ll i = 2; i <= k; i++) {
compute(i, n, i, n);
dp_before = dp_curr;
}
cout << dp_before[n] << endl;
}
}
I2luY2x1ZGUgPGJpdHMvc3RkYysrLmg+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CiNkZWZpbmUgZmlvIGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oZmFsc2UpO2Npbi50aWUoTlVMTCk7Y291dC50aWUoTlVMTCkKI2RlZmluZSB3YXRjaCh4KSBjb3V0IDw8ICgjeCkgPDwgIiBpcyAiIDw8ICh4KSA8PCBlbmRsCiNkZWZpbmUgZih0KSBmb3IobGwgaT0wO2k8dDtpKyspCiNkZWZpbmUgbGwgbG9uZyBsb25nIGludAojZGVmaW5lIGxkIGxvbmcgZG91YmxlCiNkZWZpbmUgdW1wbCB1bm9yZGVyZWRfbWFwPGxsLGxsPgojZGVmaW5lIHZsIHZlY3RvcjxsbD4KI2RlZmluZSB2bGQgdmVjdG9yPGxkPgojZGVmaW5lIHZ2bCB2ZWN0b3I8dmw+CiNkZWZpbmUgcGIgcHVzaF9iYWNrCiNkZWZpbmUgcGxsIHBhaXI8bGwsbGw+CiNkZWZpbmUgaW5mIDFlMTgKI2RlZmluZSBwY291dCh4LHApIGNvdXQ8PGZpeGVkPDxzZXRwcmVjaXNpb24ocCk8PHgKI2RlZmluZSBhbGwoYSkgYS5iZWdpbigpLGEuZW5kKCkKI2RlZmluZSBlbmRsICJcbiIKY29uc3QgbGwgbW9kID0gMWU5ICsgNzsKaW5saW5lIGxsIG11bChsbCBhLCBsbCBiKSB7IHJldHVybiAoYSAqIDFsbCAqIGIpICUgbW9kOyB9CmlubGluZSBsbCBzdWIobGwgYSwgbGwgYikgeyBsbCBjID0gYSAtIGI7IGlmIChjIDwgMCkgYyArPSBtb2Q7IHJldHVybiBjOyB9CmlubGluZSBsbCBhZGQobGwgYSwgbGwgYikgeyBsbCBjID0gYSArIGI7IGlmIChjID49IG1vZCkgYyAtPSBtb2Q7IHJldHVybiBjOyB9CmlubGluZSBsbCBtYXgobGwgYSwgbGwgYikge3JldHVybiBhID4gYiA/IGEgOiBiO30KaW5saW5lIGxsIG1pbihsbCBhLCBsbCBiKSB7cmV0dXJuIGEgPCBiID8gYSA6IGI7fQppbmxpbmUgbGwgY2VpbChsbCBhLCBsbCBiKSB7cmV0dXJuIChhICUgYiA9PSAwKSA/IChhIC8gYikgOiAoYSAvIGIgKyAxKTt9CgoKY29uc3QgbGwgbWF4biA9IDUwMDE7CmxsIG1vcmVbbWF4bl1bbWF4bl07CnZsIGRwX2JlZm9yZSwgZHBfY3VycjsKbGwgY29zdChsbCBpLCBsbCBqKSB7CiAgICByZXR1cm4gbW9yZVtqXVtqXSAtIG1vcmVbaSAtIDFdW2pdIC0gbW9yZVtqXVtpIC0gMV0gKyBtb3JlW2kgLSAxXVtpIC0gMV07Cn0Kdm9pZCBjb21wdXRlKGxsIGwsIGxsIHIsIGxsIGxvdywgbGwgaGlnaCkgewogICAgaWYgKGwgPiByKXJldHVybjsKICAgIGxsIG1pZCA9IChsICsgcikgLyAyOwogICAgcGxsIGJlc3QgPSB7aW5mLCAtMX07CiAgICBmb3IgKGxsIGsgPSBsb3c7IGsgPD0gbWluKG1pZCwgaGlnaCk7IGsrKykgewogICAgICAgIGJlc3QgPSBtaW4oYmVzdCwge2RwX2JlZm9yZVtrIC0gMV0gKyBjb3N0KGssIG1pZCksIGt9KTsKICAgIH0KICAgIGRwX2N1cnJbbWlkXSA9IGJlc3QuZmlyc3Q7CiAgICBsbCBub3cgPSBiZXN0LnNlY29uZDsKICAgIGNvbXB1dGUobCwgbWlkIC0gMSwgbG93LCBub3cpOwogICAgY29tcHV0ZShtaWQgKyAxLCByLCBub3csIGhpZ2gpOwp9CgppbnQgbWFpbigpIHsKICAgIGZpbzsKICAgIGxsIHQ7IGNpbiA+PiB0OwogICAgd2hpbGUgKHQtLSkgewogICAgICAgIGxsIG4sIGs7IGNpbiA+PiBuID4+IGs7CiAgICAgICAgdmwgYShuICsgMSk7CiAgICAgICAgZm9yIChsbCBpID0gMTsgaSA8PSBuOyBpKyspY2luID4+IGFbaV07CiAgICAgICAgbWVtc2V0KG1vcmUsIDAsIHNpemVvZihtb3JlKSk7CiAgICAgICAgZm9yIChpbnQgaSA9IDE7IGkgPD0gbjsgaSsrKSB7CiAgICAgICAgICAgIGZvciAoaW50IGogPSAxOyBqIDw9IGk7IGorKykgewogICAgICAgICAgICAgICAgaWYgKGFbal0gPiBhW2ldKSB7CiAgICAgICAgICAgICAgICAgICAgbW9yZVtpXVtqXSA9IGFbal07CiAgICAgICAgICAgICAgICB9CiAgICAgICAgICAgIH0KICAgICAgICB9CiAgICAgICAgZm9yIChpbnQgaSA9IDE7IGkgPD0gbjsgaSsrKSB7CiAgICAgICAgICAgIGZvciAoaW50IGogPSAxOyBqIDw9IG47IGorKykgewogICAgICAgICAgICAgICAgbW9yZVtpXVtqXSA9IG1vcmVbaSAtIDFdW2pdICsgbW9yZVtpXVtqIC0gMV0gLSBtb3JlW2kgLSAxXVtqIC0gMV0gKyBtb3JlW2ldW2pdOwogICAgICAgICAgICB9CiAgICAgICAgfQogICAgICAgIGRwX2JlZm9yZS5yZXNpemUobiArIDEpLCBkcF9jdXJyLnJlc2l6ZShuICsgMSk7CiAgICAgICAgZm9yIChpbnQgaSA9IDE7IGkgPD0gbjsgaSsrKSB7CiAgICAgICAgICAgIGRwX2JlZm9yZVtpXSA9IGNvc3QoMSwgaSk7CiAgICAgICAgfQogICAgICAgIGZvciAobGwgaSA9IDI7IGkgPD0gazsgaSsrKSB7CiAgICAgICAgICAgIGNvbXB1dGUoaSwgbiwgaSwgbik7CiAgICAgICAgICAgIGRwX2JlZm9yZSA9IGRwX2N1cnI7CiAgICAgICAgfQogICAgICAgIGNvdXQgPDwgZHBfYmVmb3JlW25dIDw8IGVuZGw7CiAgICB9Cn0=