local strata = {
  {name = "Channelling", color = "red",    shard = "metallic",   loc = "Orc Mines[IS], Sky Elves[SS]"},
  {name = "Enhancement", color = "blue",   shard = "opalescent", loc = "Hellwell[AH], Summit [AH]"},
  {name = "Healing",     color = "green",  shard = "milky",      loc = "Pirate's Cove[BH], Enea's Temple[IS]"},
  {name = "Mental",      color = "violet", shard = "clear",      loc = "Castle Zodiac[AH], Water Plane[AH]"},
  {name = "Necromancy",  color = "dark",   shard = "jet-black",  loc = "Dark Chasm[AH], The Tarot[IS]"},
  {name = "Shaping",     color = "orange", shard = "veined",     loc = "Centaurs'[SS], Earth Plane[AH]"},
  {name = "Summoning",   color = "yellow", shard = "luminous",   loc = "Deemonee Warren[IS]"},
}

local W = { name = 13, color = 8, shard = 12, loc = 50 }
local W = { name = 12, color = 7, shard = 11, loc = 36 }


local function pad(s, w)
  s = tostring(s)
  if #s >= w then return s end
  return s .. string.rep(" ", w - #s)
end

local function line()
  echo("+" ..
    string.rep("-", W.name  + 2) .. "+" ..
    string.rep("-", W.color + 2) .. "+" ..
    string.rep("-", W.shard + 2) .. "+" ..
    string.rep("-", W.loc   + 2) .. "+\n")
end

line()
echo("| " ..
  pad("Strata", W.name) .. " | " ..
  pad("Color",  W.color) .. " | " ..
  pad("Shard",  W.shard) .. " | " ..
  pad("Locations", W.loc) .. " |\n")
line()

for _, s in ipairs(strata) do
  echo("| " ..
    pad(s.name,  W.name) .. " | " ..
    pad(s.color, W.color) .. " | " ..
    pad(s.shard, W.shard) .. " | " ..
    pad(s.loc,   W.loc) .. " |\n")
end

line()