-- links we don't know about, just in case

  outfile:write(json.encode(Cache[id].links))

  emit_links_in_json_in_consistent_order(outfile, Cache[id].links)

  end
end
function emit_links_in_json_in_consistent_order(outfile, links)
--?   outfile:write(json.encode(Cache[id].links))
  local first_written = false
  outfile:write('{')
  for _,label in pairs(Edge_list) do
    if links[label] then
      if first_written then
        outfile:write(',')
      else
        first_written = true
      end
      outfile:write('"')
      outfile:write(label)
      outfile:write('":"')
      outfile:write(links[label])
      outfile:write('"')
    end
  end
  -- links we don't know about, just in case
  for rel,target in pairs(links) do
    if Opposite[rel] == nil then
      if first_written then
        outfile:write(',')
      else
        first_written = true
      end
      outfile:write('"')
      outfile:write(rel)
      outfile:write('":"')
      outfile:write(target)
      outfile:write('"')
    end

  outfile:write('}')