def max_abs_sum_gain(a1, b1, a2, b2):
    orig = abs(a1 - b1) + abs(a2 - b2)
    values = [a1, b1, a2, b2]
    max_new = 0
    for i in range(4):
        for j in range(4):
            if i == j:
                continue
            used = [False] * 4
            used[i] = used[j] = True
            x1, x2 = values[i], values[j]
            y = [values[m] for m in range(4) if not used[m]]
            new_v = abs(x1 - y[0]) + abs(x2 - y[1])
            max_new = max(max_new, new_v)
    return max_new - orig
 
def solve():
    import sys
    input = sys.stdin.read
    data = input().split()
 
    idx = 0
    t = int(data[idx])
    idx += 1
    results = []
    for _ in range(t):
        n = int(data[idx])
        idx += 1
        k = int(data[idx])
        idx += 1
        a = list(map(int, data[idx:idx + n]))
        idx += n
        b = list(map(int, data[idx:idx + n]))
        idx += n
 
        initial_v = sum(abs(a[i] - b[i]) for i in range(n))
        gains = []
 
        for i in range(n - 1):
            gain = max_abs_sum_gain(a[i], b[i], a[i + 1], b[i + 1])
            if gain > 0:
                gains.append(gain)
 
        gains.sort(reverse=True)
        final_v = initial_v - sum(gains[:k])
        results.append(str(final_v))
 
    print("\n".join(results))
 
solve()

ZGVmIG1heF9hYnNfc3VtX2dhaW4oYTEsIGIxLCBhMiwgYjIpOgogICAgb3JpZyA9IGFicyhhMSAtIGIxKSArIGFicyhhMiAtIGIyKQogICAgdmFsdWVzID0gW2ExLCBiMSwgYTIsIGIyXQogICAgbWF4X25ldyA9IDAKICAgIGZvciBpIGluIHJhbmdlKDQpOgogICAgICAgIGZvciBqIGluIHJhbmdlKDQpOgogICAgICAgICAgICBpZiBpID09IGo6CiAgICAgICAgICAgICAgICBjb250aW51ZQogICAgICAgICAgICB1c2VkID0gW0ZhbHNlXSAqIDQKICAgICAgICAgICAgdXNlZFtpXSA9IHVzZWRbal0gPSBUcnVlCiAgICAgICAgICAgIHgxLCB4MiA9IHZhbHVlc1tpXSwgdmFsdWVzW2pdCiAgICAgICAgICAgIHkgPSBbdmFsdWVzW21dIGZvciBtIGluIHJhbmdlKDQpIGlmIG5vdCB1c2VkW21dXQogICAgICAgICAgICBuZXdfdiA9IGFicyh4MSAtIHlbMF0pICsgYWJzKHgyIC0geVsxXSkKICAgICAgICAgICAgbWF4X25ldyA9IG1heChtYXhfbmV3LCBuZXdfdikKICAgIHJldHVybiBtYXhfbmV3IC0gb3JpZwoKZGVmIHNvbHZlKCk6CiAgICBpbXBvcnQgc3lzCiAgICBpbnB1dCA9IHN5cy5zdGRpbi5yZWFkCiAgICBkYXRhID0gaW5wdXQoKS5zcGxpdCgpCgogICAgaWR4ID0gMAogICAgdCA9IGludChkYXRhW2lkeF0pCiAgICBpZHggKz0gMQogICAgcmVzdWx0cyA9IFtdCiAgICBmb3IgXyBpbiByYW5nZSh0KToKICAgICAgICBuID0gaW50KGRhdGFbaWR4XSkKICAgICAgICBpZHggKz0gMQogICAgICAgIGsgPSBpbnQoZGF0YVtpZHhdKQogICAgICAgIGlkeCArPSAxCiAgICAgICAgYSA9IGxpc3QobWFwKGludCwgZGF0YVtpZHg6aWR4ICsgbl0pKQogICAgICAgIGlkeCArPSBuCiAgICAgICAgYiA9IGxpc3QobWFwKGludCwgZGF0YVtpZHg6aWR4ICsgbl0pKQogICAgICAgIGlkeCArPSBuCgogICAgICAgIGluaXRpYWxfdiA9IHN1bShhYnMoYVtpXSAtIGJbaV0pIGZvciBpIGluIHJhbmdlKG4pKQogICAgICAgIGdhaW5zID0gW10KCiAgICAgICAgZm9yIGkgaW4gcmFuZ2UobiAtIDEpOgogICAgICAgICAgICBnYWluID0gbWF4X2Fic19zdW1fZ2FpbihhW2ldLCBiW2ldLCBhW2kgKyAxXSwgYltpICsgMV0pCiAgICAgICAgICAgIGlmIGdhaW4gPiAwOgogICAgICAgICAgICAgICAgZ2FpbnMuYXBwZW5kKGdhaW4pCgogICAgICAgIGdhaW5zLnNvcnQocmV2ZXJzZT1UcnVlKQogICAgICAgIGZpbmFsX3YgPSBpbml0aWFsX3YgLSBzdW0oZ2FpbnNbOmtdKQogICAgICAgIHJlc3VsdHMuYXBwZW5kKHN0cihmaW5hbF92KSkKCiAgICBwcmludCgiXG4iLmpvaW4ocmVzdWx0cykpCgpzb2x2ZSgp

NQoyIDEKMSA3CjMgNQozIDIKMSA1IDMKNiAyIDQKNSA0CjEgMTYgMTAgMTAgMTYKMyAyIDIgMTUgMTUKNCAxCjIzIDEgMTggNAoxOSAyIDEwIDMKMTAgMTAKNCAzIDIgMTAwIDQgMSAyIDQgNSA1CjEgMjAwIDQgNSA2IDEgMTAgMiAzIDQK

5
2 1
1 7
3 5
3 2
1 5 3
6 2 4
5 4
1 16 10 10 16
3 2 2 15 15
4 1
23 1 18 4
19 2 10 3
10 10
4 3 2 100 4 1 2 4 5 5
1 200 4 5 6 1 10 2 3 4