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 x1 in values:
        for x2 in values:
            if x1 == x2:
                continue
            remaining = values[:]
            remaining.remove(x1)
            remaining.remove(x2)
            y1, y2 = remaining
            new_v = abs(x1 - y1) + abs(x2 - y2)
            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()
 

ZGVmIG1heF9hYnNfc3VtX2dhaW4oYTEsIGIxLCBhMiwgYjIpOgogICAgb3JpZyA9IGFicyhhMSAtIGIxKSArIGFicyhhMiAtIGIyKQogICAgdmFsdWVzID0gW2ExLCBiMSwgYTIsIGIyXQogICAgbWF4X25ldyA9IDAKICAgIGZvciB4MSBpbiB2YWx1ZXM6CiAgICAgICAgZm9yIHgyIGluIHZhbHVlczoKICAgICAgICAgICAgaWYgeDEgPT0geDI6CiAgICAgICAgICAgICAgICBjb250aW51ZQogICAgICAgICAgICByZW1haW5pbmcgPSB2YWx1ZXNbOl0KICAgICAgICAgICAgcmVtYWluaW5nLnJlbW92ZSh4MSkKICAgICAgICAgICAgcmVtYWluaW5nLnJlbW92ZSh4MikKICAgICAgICAgICAgeTEsIHkyID0gcmVtYWluaW5nCiAgICAgICAgICAgIG5ld192ID0gYWJzKHgxIC0geTEpICsgYWJzKHgyIC0geTIpCiAgICAgICAgICAgIG1heF9uZXcgPSBtYXgobWF4X25ldywgbmV3X3YpCiAgICByZXR1cm4gbWF4X25ldyAtIG9yaWcKCmRlZiBzb2x2ZSgpOgogICAgaW1wb3J0IHN5cwogICAgaW5wdXQgPSBzeXMuc3RkaW4ucmVhZAogICAgZGF0YSA9IGlucHV0KCkuc3BsaXQoKQoKICAgIGlkeCA9IDAKICAgIHQgPSBpbnQoZGF0YVtpZHhdKQogICAgaWR4ICs9IDEKICAgIHJlc3VsdHMgPSBbXQogICAgZm9yIF8gaW4gcmFuZ2UodCk6CiAgICAgICAgbiA9IGludChkYXRhW2lkeF0pCiAgICAgICAgaWR4ICs9IDEKICAgICAgICBrID0gaW50KGRhdGFbaWR4XSkKICAgICAgICBpZHggKz0gMQogICAgICAgIGEgPSBsaXN0KG1hcChpbnQsIGRhdGFbaWR4OmlkeCArIG5dKSkKICAgICAgICBpZHggKz0gbgogICAgICAgIGIgPSBsaXN0KG1hcChpbnQsIGRhdGFbaWR4OmlkeCArIG5dKSkKICAgICAgICBpZHggKz0gbgoKICAgICAgICBpbml0aWFsX3YgPSBzdW0oYWJzKGFbaV0gLSBiW2ldKSBmb3IgaSBpbiByYW5nZShuKSkKICAgICAgICBnYWlucyA9IFtdCgogICAgICAgIGZvciBpIGluIHJhbmdlKG4gLSAxKToKICAgICAgICAgICAgZ2FpbiA9IG1heF9hYnNfc3VtX2dhaW4oYVtpXSwgYltpXSwgYVtpICsgMV0sIGJbaSArIDFdKQogICAgICAgICAgICBpZiBnYWluID4gMDoKICAgICAgICAgICAgICAgIGdhaW5zLmFwcGVuZChnYWluKQoKICAgICAgICBnYWlucy5zb3J0KHJldmVyc2U9VHJ1ZSkKICAgICAgICBmaW5hbF92ID0gaW5pdGlhbF92ICsgc3VtKGdhaW5zWzprXSkKICAgICAgICByZXN1bHRzLmFwcGVuZChzdHIoZmluYWxfdikpCgogICAgcHJpbnQoIlxuIi5qb2luKHJlc3VsdHMpKQoKc29sdmUoKQo=

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