module ICPCodes (quiz) where

import Data.Char
import Colors

codes = [("AA","To the affected area")
        ,("AB","Both")
        ,("AC","Before meals")
        ,("AD","Right ear")
        ,("AEA","In affected ear(s)")
        ,("AEY","In affected eye(s)")
        ,("AIDO","After initial dose")
        ,("ALT","Alternate")
        ,("AMT","Amount")
        ,("AND","And")
        ,("APL","Applicatorful")
        ,("APP","Apply")
        ,("APR","Apply to rash")
        ,("APS","Applicatorsful")
        ,("AS","Left ear")
        ,("ASD","Apply sparingly with each diaper change")
        ,("ATC","Around the clock")
        ,("ATN","At night")
        ,("AU","Both ears")
        ,("B","Before")
        ,("BED","Bedtime")
        ,("BID","Twice Daily")
        ,("BM","Bowel Movement")
        ,("BP","Blood Pressure")
        ,("BRE","Breakfast")
        ,("C","Capsule")
        ,("CAP,_","Take one capsule every _ hours")
        ,("CNC","Cough and congestion")
        ,("CNTS","Contents of 1 packet")
        ,("CONS","Consecutive")
        ,("COU","For cough")
        ,("CPS,_,_","Take _ capsules every _ hours")
        ,("CS","Capsules")
        ,("CRU","Crush")
        ,("CSW","Chew and swallow")
        ,("D","Daily")
        ,("DAPP","Dental Appointment")
        ,("DAYS","Days")
        ,("DH","Diarrhea")
        ,("DID","Two or three times daily for weight loss")
        ,("DIS","Dissolve")
        ,("DIW,_","Dissolve _ tablets in water")
        ,("DNC","Take 4 capsules one hour before dental appointment")
        ,("DNT","Take 4 tablets one hour before dental appointment")
        ,("DPS","Droppersful")
        ,("DR","discard remainder")
        ,("DRK","Drink")
        ,("DRP","Dropperful")
        ,("DTI","Double or triple for illness")
        ,("EACH","Each")
        ,("EVE","Evening")
        ,("EXT","Externally")
        ,("FID","Five times daily")
        ,("FIVE","Five")
        ,("FOR","For")
        ,("FOUR","Four")
        ,("FPD","Follow package directions")
        ,("G","Give")
        ,("GEF","Generic equivalent for")
        ,("GEQ","Generic equivalent to")
        ,("GF","Generic for")
        ,("GSM","Generic Substitution made")
        ,("GTS","Drops")
        ,("GTT","Drop")
        ,("H","Hours")
        ,("HA","Headache")
        ,("HS","At bedtime")
        ,("I","Insert")
        ,("IEN","In each nostril")
        ,("IMM","Immediately")
        ,("IN","in")
        ,("INH,_,_","Inhale _ puffs every _ hours")
        ,("INJ","Inject")
        ,("INL","Inhale")
        ,("INT","Instill")
        ,("INTO","Into")
        ,("IVB","Insert one applicatorful vaginally at bedtime")
        ,("IVS","Insert one suppository vaginally at bedtime")
        ,("IM","Intramuscularly (in the muscle)")
        ,("LEA","In the left ear")
        ,("LEY","In the left eye")
        ,("LQ","Liquid")
        ,("LOZ","Lozenge")
        ,("MCD","May cause drowsiness")
        ,("MEAL","Meal")
        ,("MEQ","meq")
        ,("MIN","minutes")
        ,("ML","ml")
        ,("MLS","mls")
        ,("N","For nausea")
        ,("NER","For nerves")
        ,("NEXT","Next")
        ,("NOS","Nostril")
        ,("NTS","Nights")
        ,("NV","For nausea and vomiting")
        ,("OC","1 daily for a full cycle. Stop for 1 week, then repeat")
        ,("OD","Right eye")
        ,("OES","On an empty stomach")
        ,("ONCE","Once")
        ,("ONE","One")
        ,("OR","or")
        ,("OS","Left eye")
        ,("OU","Both eyes")
        ,("P","For pain")
        ,("PA","patch")
        ,("PC","After meals")
        ,("PFS","Puffs")
        ,("PO","By mouth")
        ,("PRA","As needed for anxiety")
        ,("PRF","As needed for")
        ,("PRN","As needed")
        ,("Q","Every")
        ,("QAM","Every morning")
        ,("QD","Every day")
        ,("QHS","Every night at bedtime")
        ,("QID","Four times daily")
        ,("QOD","Every other day")
        ,("QPM","Every evening")
        ,("R","Rectal")
        ,("REA","In the right ear")
        ,("REC","Rectally")
        ,("REY","In the right eye")
        ,("RF","Refrigerate")
        ,("SAS","Swish and swallow")
        ,("SIX","Six")
        ,("SLP","Sleep")
        ,("SML","Small")
        ,("SOA","Soak")
        ,("SOB","Shortness of breath")
        ,("SPR","Spray")
        ,("SPS","Suppositories")
        ,("SS","one-half")
        ,("SC","Subcutaneously (under the skin)")
        ,("SUP","Suppository")
        ,("SW","Shake well")
        ,("SWR","Shake well and refrigerate")
        ,("T","Tablet")
        ,("TAB,_","Take one tablet every _ hours")
        ,("TAT","Until all taken")
        ,("TAY","Today")
        ,("TBL","Tablespoonful")
        ,("TBS,_,_","Take _ tablets every _ hours")
        ,("TEA","Teaspoonful")
        ,("TES","Teaspoonsful")
        ,("THEN","Then")
        ,("TID","Three times daily")
        ,("TK","Take")
        ,("TLS","Tablespoonsful")
        ,("TNT","One tablet under tongue as needed for chest pain")
        ,("TS","Tablets")
        ,("TW","One tablet in water")
        ,("TWO","Two")
        ,("U","Use")
        ,("UNT","Under the tongue")
        ,("UNW","Unwrap")
        ,("UTD","As Directed")
        ,("VA","Vaginal")
        ,("VAG","In the vagina")
        ,("VOM","Vomiting")
        ,("VVN","Use 1 vial via nebulizer")
        ,("WA","While awake")
        ,("WC","With meals")
        ,("WF","With food")
        ,("WFJ","With fruit juice")
        ,("WITH","With")
        ,("WKS","Weeks")
        ,("WOJ","With orange juice")
        ,("XD","Times daily")
        ]

quiz = [(white (map toLower b), map toLower a) | (a, b) <- codes]
