s = gets.chomp
k = gets.to_i
a = 0
t = s.dup
t.size.pred.times do |i|
  if t[i] == t[i + 1]
    a += 1
    t[i + 1] = '0'
  end
end
b = 0
t = s.dup * 2
t.size.pred.times do |i|
  if t[i] == t[i + 1]
    b += 1
    t[i + 1] = '0'
  end
end
puts (k - 1) * (b - a) + a