program prob6
    implicit none
    integer :: N, K, i, a, b, ans
    character(100005) :: S
    read(*,*) N, K, S
    
    ans = 0
    do i = 2, N-1
        if(S(i:i) == 'L')then
            if(S(i-1:i-1) == 'L')then
                ans = ans + 1
            end if
        end if
        if(S(i:i) == 'R')then
            if(S(i+1:i+1) == 'R')then
                ans = ans + 1
            end if
        end if
    end do
    if(S(1:1) == 'R')then
        if(S(2:2) == 'R')then
            ans = ans + 1
        end if
    end if
    if(S(N:N) == 'L')then
        if(S(N-1:N-1) == 'L')then
            ans = ans + 1
        end if
    end if

    a = 0
    b = 0
    do i = 1, N-1
        if(S(i:i) == 'L' .and. S(i+1:i+1) == 'R')then
            a = a + 1
        end if
        if(S(i:i) == 'R' .and. S(i+1:i+1) == 'L')then
            b = b + 1
        end if
    end do
    ans = ans + 2 * min(a, min(b, K))
    if(K > min(a, b)) then
        ans = ans + K - min(a, b)
    end if
    ans = min(ans, N-1)

    write(*,*) ans

    stop
contains
end program prob6