programs=["AFRIK","ALBAN","AM ST","ARAB","ARTHC","ASIAN","ASL","BULGN","CAMBO","CANT","CEBU","CHIN","CL CV","CLSCS","CMPST","CMLIT","CZECH","DANSH","DIGHT","DUTCH","ELANG","ENGL","ESL","ESTON","EUROP","FINN","FLANG","FREN","GERM","GREEK","HAWAI","HCOLL","HEB","HINDI","HONRS","IAS","ICLND","ICS","IHUM","INDON","ITAL","JAPAN","KOREA","LAO","LATIN","LATVI","LING","LITHU","LT AM","MALAG","MALAY","MESA","NAVAJ","NE LG","NORWE","PERSI","PHIL","POLSH","PORT","QUECH","ROM","RUSS","SAMOA","SCAND","SLAT","SPAN","SWAHI","SWED","TAGAL","TAHTN","TESOL","THAI","TONGA","TURK","UKRAI","UNIV","VIET","WELSH","WS","WRTG"]

programs = ["AFRIK",
            "ALBAN",
            "AM ST",
            "ARAB",
            "ARTHC",
            "ASIAN",
            "ASL",
            "BULGN",
            "CAMBO",
            "CANT",
            "CEBU",
            "CHIN",
            "CL CV",
            "CLSCS",
            "CMPST",
            "CMLIT",
            "CZECH",
            "DANSH",
            "DIGHT",
            "DUTCH",
            "ELANG",
            "ENGL",
            "ESL",
            "ESTON",
            "EUROP",
            "FINN",
            "FLANG",
            "FREN",
            "GERM",
            "GREEK",
            "GWS",
            "HAWAI",
            "HCOLL",
            "HEB",
            "HINDI",
            "HONRS",
            "IAS",
            "ICLND",
            "ICS",
            "IHUM",
            "INDON",
            "ITAL",
            "JAPAN",
            "KOREA",
            "LAO",
            "LATIN",
            "LATVI",
            "LING",
            "LITHU",
            "LT AM",
            "MALAG",
            "MALAY",
            "MESA",
            "NAVAJ",
            "NE LG",
            "NORWE",
            "PERSI",
            "PHIL",
            "POLSH",
            "PORT",
            "QUECH",
            "ROM",
            "RUSS",
            "SAMOA",
            "SCAND",
            "SLAT",
            "SPAN",
            "SWAHI",
            "SWED",
            "TAGAL",
            "TAHTN",
            "TESOL",
            "THAI",
            "TONGA",
            "TURK",
            "UKRAI",
            "UNIV",
            "VIET",
            "WELSH",
            "WRTG"]

change WS to GWS