check ores

local sArg = ... or "ore"
p = peripheral.wrap("top")
tbl = p.scan(8)

local str = ""
for i,v in pairs(tbl) do
  if v.name:find(sArg) then
    str = str .. v.name .. "\n"
  end
end

local h = io.open("result", "w")
h:write(str)
h:close()

shell.run("edit result")