local s = io.read()
local n = #s
local t = {}
for i = 1, n do
  t[i] = s:sub(i, i) == "1"
end
local function solve()
  if t[n] then print(-1) return end
  if not t[1] then print(-1) return end
  for i = 1, n - 1 do
    if t[i] ~= t[n - i] then print(-1) return end
  end
  local node = 1
  local tasks = {}
  for i = 1, n - 1 do
    print(node .. " " .. i + 1)
    if t[i] then node = i + 1 end
  end
end
solve()
