N, K = gets.split.map(&:to_i)
S = gets.chomp

a = S.chars.each_cons(2).count { |a, b| a == b }

f, b = S[0] == 'L' ? ['L', 'R'] : ['R', 'L']

ans = a
cnt = 0
idx = 0

while cnt < K && idx < S.size - 1
  while idx < S.size - 1 && S[idx] == f
    idx += 1
  end

  while idx < S.size - 1 && S[idx] == b
    idx += 1
  end

  if idx == S.size - 1
    ans += 1
  else
    ans += 2
  end

  cnt += 1
end

puts ans
