local mod = 998244353
local mfl = math.floor
local function bmul(x, y)
  local x0, y0 = x % 31596, y % 31596
  local x1, y1 = mfl(x / 31596), mfl(y / 31596)
  return (x1 * y1 * 62863 + (x1 * y0 + x0 * y1) * 31596 + x0 * y0) % mod
end

local function badd(x, y)
  return (x + y) % mod
end

local p11 = {1}
local p2 = {1}
for i = 2, 200010 do
  p11[i] = (p11[i - 1] * 11) % mod
  p2[i] = (p2[i - 1] * 2) % mod
end

local s = io.read()
local n = #s
local ret = 0
for i = 1, n do
  local t = s:byte(i) - 48
  local right = n - i
  local left = i - 1
  local v = bmul(t, bmul(p11[right + 1], p2[left + 1]))
  ret = badd(ret, v)
end
print(ret)