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

L = S.split('R').select { |s| s.size > 0 }
R = S.split('L').select { |s| s.size > 0 }

str = ''

if S[0] == 'R'
  K.times do
    str << R.shift
    str << 'R' * L.shift.size
  end

  str += R.zip(L).join
else
  K.times do
    str << L.shift
    str << 'L' * R.shift.size
  end

  str += L.zip(R).join
end

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