module Terminology.Roots (quizByRoot, quizByMeaning) where

import Colors

questions = [("aer","air")
            ,("aero","gas")
            ,("acous, audi","hearing")
            ,("acusis","hearing condition")
            ,("aden","gland")
            ,("adip","fat")
            ,("adrena","adrenal")
            ,("alges","pain")
            ,("albumin","protein")
            ,("ambly","dim, dull")
            ,("andr","male")
            ,("aneur","widening")
            ,("angi","vessel")
            ,("aort","aorta")
            ,("arter","artery")
            ,("ather","plaque")
            ,("arthr","joint")
            ,("balan","glans penis")
            ,("bacter","bacteria")
            ,("blephar","eyelid")
            ,("burs","bursia")
            ,("bronch","bronchus")
            ,("capn","carbon dioxide")
            ,("card","heart")
            ,("carp","wrist")
            ,("cerebr","cerebrum")
            ,("cerumin","wax-like")
            ,("cervic","cervix")
            ,("chol","bile")
            ,("chondr","cartilage")
            ,("col","colon")
            ,("condyle","knob, knuckle")
            ,("corne","cornea")
            ,("conjunctiv","conjuctiva")
            ,("crani","skull")
            ,("crine","to secrete")
            ,("cutane","skin")
            ,("cyan", "blue")
            ,("cyt, cyte","cell")
            ,("cyst, vesic","bladder")
            ,("crypt","hidden")
            ,("dactyl","finger or toe")
            ,("derma","skin")
            ,("dont","teeth")
            ,("duoden","duodenum")
            ,("eclamps","shining forth")
            ,("embol","embolus")
            ,("encephal","brain")
            ,("enter","intestine")
            ,("esophag","esophagus")
            ,("esthes","sensation")
            ,("femor","thigh bone")
            ,("fibr","fiber")
            ,("fibul","small lower leg bone")
            ,("gastr","stomach")
            ,("glauc","gray")
            ,("glyc","sugar")
            ,("glycos","glucose")
            ,("gynec","woman")
            ,("hemat","blood")
            ,("hemo","blood")
            ,("hepat","liver")
            ,("herni","hernia")
            ,("hist","tissue")
            ,("humer","upper arm bone")
            ,("irid, ir","iris")
            ,("keto","ketones")
            ,("kerat","hard")
            ,("labyrinth","inner ear")
            ,("lact","milk")
            ,("lacrim","tear duct")
            ,("laryng","larynx")
            ,("lapar","abdomen")
            ,("leuk","white")
            ,("lingu","tongue")
            ,("lipid", "fat")
            ,("lith","stone")
            ,("lord","curve")
            ,("lymph","lymph")
            ,("mast, mamm","breast")
            ,("melan","black")
            ,("mening","meninges")
            ,("men", "menstruation")
            ,("ment","mind")
            ,("metr, hyster","uterus")
            ,("my","muscle")
            ,("myel","spinal cord")
            ,("myring, tympan","eardrum")
            ,("myx","mucus")
            ,("nas, rhin","nose")
            ,("necr","death")
            ,("nephr, ren, ur","kidney")
            ,("neur","nerve")
            ,("ocul, ophthalm","eye")
            ,("onych","nail")
            ,("opt, opia","vision (or eye)")
            ,("orexia","appetite")
            ,("orch, orchid","testis")
            ,("oste","bone")
            ,("ot","ear")
            ,("ovari","ovary")
            ,("ox, oxy","oxygen")
            ,("pancreat","pancreas")
            ,("partum","bring forth")
            ,("patell","knee cap")
            ,("pector","chest")
            ,("ped, pod","foot")
            ,("pelv","pelvis")
            ,("pepsia","digestion")
            ,("phag","swallow")
            ,("phalang","bones of fingers and toes")
            ,("phas","speech")
            ,("phleb","vein")
            ,("plas","development")
            ,("pneumon, pulmon","lung, air")
            ,("prostat","prostate gland")
            ,("psycho","mind")
            ,("rachi, spondyl","vertebrae")
            ,("respir","breath")
            ,("retin","retina")
            ,("rhabdo","rod")
            ,("salping","fallopian tube, eustachian tube")
            ,("scoli","crooked, bent")
            ,("semin","semen")
            ,("sepsis","to putrefy")
            ,("sinus","sinus")
            ,("stenosis","narrowing")
            ,("stigmat","point(ed)")
            ,("somat","body")
            ,("sperm","sperm")
            ,("splen","spleen")
            ,("stern","sternum, breastbone")
            ,("tendin","tendon")
            ,("test","testis, testicle")
            ,("tetan","tetanus")
            ,("thorax", "chest")
            ,("thromb","clot")
            ,("thyroid","thyroid")
            ,("thym","thymus")
            ,("thyroid","thyroid")
            ,("toc","birth")
            ,("tibi","large, lower leg bone")
            ,("uter","uterine")
            ,("uria, uresis","urination")
            ,("ureter","ureter")
            ,("urethr","urethra")
            ,("vagin","vagina")
            ,("varic","varicose veins")
            ,("vas, vascu","vessel or duct")
            ,("ven","vein")
            ]

quizByMeaning = [("What is the meaning of " ++ white x ++ "?", y) | (x,y) <- questions]
quizByRoot = [("What is the root of " ++ white y ++ "?", x) | (x,y) <- questions]
