local s = io.read()
local k = io.read("*n")
local n = #s
s = s .. s
local t = {}
for i = 1, 2 * n do
  t[i] = s:sub(i, i)
end
local spos = 1
for i = 1, n - 1 do
  if t[i] ~= t[i + 1] then
    spos = i + 1
    break
  end
end
if spos == 1 then
  print(math.floor(n * k / 2))
else
  local edgelen = spos - 1
  local epos = n
  local ecnt = 0
  for i = n, 1, -1 do
    if t[1] == t[i] then
      ecnt = ecnt + 1
    else
      epos = i
      break
    end
  end
  edgelen = edgelen + ecnt
  local intcost = 0
  local len = 1
  for i = spos + 1, epos do
    if t[i] == t[i - 1] then
      len = len + 1
      if len % 2 == 0 then
        intcost = intcost + 1
      end
    else
      len = 1
    end
    -- print(i, len)
  end
  local edgecost = math.floor(len / 2)
  -- print(intcost)
  -- print(intcost * k + edgecost * (k - 1))
  print(intcost * k + edgecost * (k - 1) + math.floor((spos - 1) / 2) + math.floor(ecnt / 2))
end
--  8999939997
-- 11999919996
