get("#137") -- string split
get("#349") -- table functions
get("#350") -- RecogUtil 2

function make_sig2letter()
  -- first, signatures from alphabet (#1000080), then additional
  -- signatures for slightly varying instances, e.g. from #1000082
  sigs = "121-1212 1321-12121 121-12121 121-121 1321-1 12-1 12321-12121 1-212 1-1 121-121 121-212 1-1 1-2343 1-232 121-121 121-121 12321-12121 12321-1212 12321-12121 1-1 1-21 12121-56787865 1-21 12321-1 12121-212 132321-12121"
  letters = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "VWX", "Y", "Z",
    "X", "B"}
  
  sigs, sig2letter = split(sigs, " "), {}
  for i=1, #sigs do
    sig = sigs[i]
    if sig2letter[sig] == nil then sig2letter[sig] = {} end
    table.insert(sig2letter[sig], letters[i])
  end
end

-- [ILT][ILT]N[UY]?RA[ILT]NCANREA[DPOJ] :)

function fix()
  local w, h, let = x2-x1, y2-y1, valuestokeys(letters)
  local cropped = { width = w, height = h,
    getInt = function(x, y) return img.getInt(x+x1, y+y1) end }
  
  -- distinguish I and T by width
  if let["I"] and let["T"] then
    let[w/h >= 0.5 and "I" or "T"] = nil
  end
  
  -- distinguish T and L by upper to lower width
  if let["T"] and let["L"] then
    let[upperToLowerWidth(cropped) < 1 and "T" or "L"] = nil
  end
  
  -- ...and so on...
  if let["I"] and let["L"] then
    let[upperToLowerWidth(cropped) <= 0.5 and "I" or "L"] = nil
  end
  
  if let["U"] and let["Y"] then
    local middleY = math.ceil(h/2)
    let[getWidth(cropped, middleY)/w <= 0.5 and "U" or "Y"] = nil
  end

  if (let["D"] or let["O"]) and let["P"] then
    if upperMaxWidth(cropped)/lowerMaxWidth(cropped) >= 2 then
      let["D"], let["O"] = nil, nil
    else
      let["P"] = nil
    end
  end
  
  if let["D"] and let["O"] then
    let[getAverageLeft(cropped)/w >= 0.05 and "D" or "O"] = nil
  end
  
  if (let["D"] or let["O"] or let["P"]) and let["J"] then
    if getAverageLeft(cropped, math.floor(h*0.33), math.floor(h*0.6))/w >= 0.5 then
      let["D"], let["O"], let["P"] = nil, nil, nil
    else
      let["J"] = nil
    end
  end

  if (let["G"] or let["S"]) and let["Q"] then
    if getAverageLeft(cropped, math.floor(h*8/9), h)/w >= 0.4 then
      let["G"], let["S"] = nil, nil
    else
      let["Q"] = nil
    end
  end
  
  if let["G"] and let["S"] then
    let[getLeftmostPoint(cropped, math.floor(h/2))/w >= 0.15 and "G" or "S"] = nil
  end
  
  letters = keystolist(let)
end

function isSpace()
  return lastX2 ~= nil and (x1-lastX2)/(y2-y1) >= 0.3
end

make_sig2letter()
result = otherresults["#345"] or error("Need result of #345")
_, _, s = string.find(result, ": (.+)")
if s == nil then return end
parts = split(s, "|")
sigs = split(otherresults["#340"] or error("Need result of #340"), " ")
result = {}

for i=1, #sigs do
  lastX2, sig, part = x2, sigs[i], parts[i]
  letters = sig2letter[sig]
  x1, y1, x2, y2 = unpack(split(part, ", "))
  x1, y1, x2, y2 = tonumber(x1), tonumber(y1), tonumber(x2), tonumber(y2)
  if isSpace() then table.insert(result, " ") end
    
  if letters == nil then
    print("Unknown signature: "..sig)
    s = "?"
  else
    if #letters > 1 then fix() end
    if #letters == 1 then
      s = letters[1]
    else
      s = "["..table.concat(letters).."]"
    end
  end
  table.insert(result, s)
end

return table.concat(result)