Chemistry PTable Quiz

-- For quizzing
local list = {
  {
    q = "H",
    a = "Hydrogen",
  },
  {
    q = "He",
    a = "Helium",
  },
  {
    q = "Li",
    a = "Lithium",
  },
  {
    q = "Be",
    a = "Beryllium",
  },
  {
    q = "B",
    a = "Boron",
  },
  {
    q = "C",
    a = "Carbon",
  },
  {
    q = "N",
    a = "Nitrogen",
  },
  {
    q = "O",
    a = "Oxygen",
  },
  {
    q = "F",
    a = "Fluorine",
  },
  {
    q = "Ne",
    a = "Neon",
  },
  {
    q = "Na",
    a = "Sodium",
  },
  {
    q = "Mg",
    a = "Magnesium",
  },
  {
    q = "Al",
    a = "Aluminum",
  },
  {
    q = "Si",
    a = "Silicon",
  },
  {
    q = "P",
    a = "Phosphorous",
  },
  {
    q = "S",
    a = "Sulfur",
  },
  {
    q = "Cl",
    a = "Chlorine",
  },
  {
    q = "Ar",
    a = "Argon",
  },
  {
    q = "K",
    a = "Potassium",
  },
  {
    q = "Ca",
    a = "Calcium",
  },
  {
    q = "Sc",
    a = "Scandium",
  },
  {
    q = "Ti",
    a = "Titanium",
  },
  {
    q = "V",
    a = "Vanadium",
  },
  {
    q = "Cr",
    a = "Chromium",
  },
  {
    q = "Mn",
    a = "Manganese",
  },
  {
    q = "Fe",
    a = "Iron",
  },
  {
    q = "Co",
    a = "Cobalt",
  },
  {
    q = "Ni",
    a = "Nickel",
  },
  {
    q = "Cu",
    a = "Copper",
  },
  {
    q = "Zn",
    a = "Zinc",
  },
  {
    q = "Ga",
    a = "Gallium",
  },
  {
    q = "Ge",
    a = "Germanium",
  },
  {
    q = "As",
    a = "Arsenic",
  },
  {
    q = "Se",
    a = "Selenium",
  },
  {
    q = "Br",
    a = "Bromine",
  },
  {
    q = "Kr",
    a = "Krypton",
  },
  {
    q = "Rb",
    a = "Rubidium",
  },
  {
    q = "Sr",
    a = "Strontium",
  },
  {
    q = "Ag",
    a = "Silver",
  },
  {
    q = "Cd",
    a = "Cadmium",
  },
  {
    q = "In",
    a = "Indium",
  },
  {
    q = "Sn",
    a = "Tin",
  },
  {
    q = "Sb",
    a = "Antimony",
  },
  {
    q = "Te",
    a = "Tellurium",
  },
  {
    q = "I",
    a = "Iodine",
  },
  {
    q = "Xe",
    a = "Xenon",
  },
  {
    q = "Cs",
    a = "Cesium",
  },
  {
    q = "Ba",
    a = "Barium",
  },
  {
    q = "La",
    a = "Lanthanum",
  },
  {
    q = "Pt",
    a = "Platinum",
  },
  {
    q = "Au",
    a = "Gold",
  },
  {
    q = "Hg",
    a = "Mercury",
  },
  {
    q = "Pb",
    a = "Lead",
  },
  {
    q = "Bi",
    a = "Bismuth",
  },
  {
    q = "Rn",
    a = "Radon",
  },
  {
    q = "Fr",
    a = "Francium",
  },
  {
    q = "Ra",
    a = "Radium",
  },
  {
    q = "Ac",
    a = "Actinium",
  },
  {
    q = "U",
    a = "Uranium",
  },
  {
    q = "Pu",
    a = "Plutonium",
  },
}
print("Generating random order...")

local function shuffle(t)
    local n = #t
    while n > 1 do
        local k = math.random(n)
        t[n], t[k] = t[k], t[n]
        n = n-1
    end
    return t
end

local rlist = shuffle(list)
local totalq = #rlist
local running = true
for i = 1,#rlist do
    function draw()
        term.clear()
        term.setCursorPos(1,1)
        print("Type 'quit' to quit or 'hint' for a hint")
        print("Question #"..i.."/"..totalq)
        print(rlist[i].q..": ")
        local input = read()
        if input == "quit" then
            running = false
        elseif input == "hint" then
            print("Hint: "..rlist[i].a)
            print("Press any key to continue...")
            os.pullEvent("key")
        elseif string.lower(input) ~= string.lower(rlist[i].a) then
            draw()
        end
    end
    draw()
    if not running then break end
end
term.clear()
term.setCursorPos(1,1)