get("#349") -- table functions

taskID = input or "#2000060" -- change this to do another task

visualizerID = "#316" -- crop executor. don't change this

function findImage(taskID)
  local title = getSnippetTitle(taskID)
  return collectSnippetIDs(title)[1]
end

function findCoordinates(text)
  for r in text:gmatch("%d+,%s*%d+,%s*%d+,%s*%d+") do
    print("Coordinates: "..r)
    table.insert(coordinates, r)
  end
end

function collectSnippetIDs(text)
  local ids = {}
  for id in (text.." "):gmatch("(#%d+)[^0-9]") do
    table.insert(ids, id)
  end
  return ids
end
  
coordinates = {}

-- get hints
refs = getTitleReferences(taskID)
for hintID in all(refs) do
  hint = getSnippet(hintID)
  print("Hint "..hintID..": "..hint)
  findCoordinates(hint)
  
  for id in all(collectSnippetIDs(hint)) do
    print("snippet id: "..id)
    findCoordinates(getSnippet(id))
  end
end

print("Coordinates found: "..#coordinates)

if #coordinates == 0 then error "War wohl nix" end

print("Trying first set of coordinates.")
r = coordinates[1]

imageID = findImage(taskID)
result = "image "..imageID.." transform through "..visualizerID.." with input "..("%q"):format(r)
title = "An image generation expression for "..taskID

print("\n-- Result: "..title)
print(result)

return {type="nt", title=title, text=result}