program main
    implicit none
    integer::n,m,i,j,k
    real(8)::ans
    read(*,*)m,n
    ans=m
    do i=1,n
        ans=ans*2/3+(ans+1)/3
    end do
    print*,ans
end program