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
c = 0
t = s.dup * 3
t.size.pred.times do |i|
  if t[i] == t[i + 1]
    c += 1
    t[i + 1] = '0'
  end
end
d = 0
t = s.dup * 4
t.size.pred.times do |i|
  if t[i] == t[i + 1]
    d += 1
    t[i + 1] = '0'
  end
end
if a == b - a
  puts a * k
elsif b - a == c - b
  puts a + (k - 1) * (b - a)
elsif a == (c - b) && (b - a) == (d - c)
  puts a * k / 2 + (b - a) * k / 2 if k.even?
  puts a * (k + 1) / 2 + (b - a) * (k - 1) / 2 if k.odd?
end