; S`QU*U*UPROGNCONDSTATUSNOFEATURENOLDMSGTERPRIMSGFILESPRINCPNPUTU*].UQUOTE;Loading IO 47   pSETQxDEFPROPTW*U*U+INTERNAL-STRING-MARKER xALPHALESSPLISPV2071IO47VERSIONPUSHU*UjUFUNCTIONLAMBDAXORFILE-EXIT-FUNCTIONS     xFEATURETOPS-20PUTPROPU*UjUSTUDNTPSKMP.TEACHPPNTEACH!#%!#%xFLATCSTRING-LENGTHSUBRh')GETCHARNCHAR-N ˀ $pu*U,x) LISTIFYFORMATLEXPR-FUNCALLDIAGNOSELSUBR`0-0 ,8,8 KK</,x-xU+U*WARGS1/3x~&Bug in TEACH: ~A 57pw+]jPx xPROGRAM-RECORD 57px xERRORBUG-00  ,,8= %,80,8,8K<",o9a ;,8 ,,8,8? 5,80,8 ,83K<Ko- "Ko;/,x-%{]j-`13x 57p==x= xQUIET-BUG-00 ,),8,8* O,8U,8K<",o9/0j,x=-pA13xOUTPUT-0@  a,8c,82KKu</,x-x+1?3x~2&w:T  pAAxA xY-OR-N-PQUERY-0 0@;+: AB@ "p`u " ,>,81,8F",o- ,8 ,C,8`0,833",<K<!KW,xA-e1C"3x~| Ep##x# xCLEAR-SCREEN ,J,8,8KA :w",o-,x#)G~& $pIIxu;] 0I x~% %pKKxK xFRESH-LINE-0 ` ,<  @+P " ,8,8a",o-7@`` `-, `4N] ,Z,8,8b",o- ` Np "p B`+V ( "+_ "/ >U,xIK`1&"xSAVED-OBARRAYOBARRAYU( GETREADSYSREAD-0 M!D@b "'aO5Bg '-,' ,k,8``0,8g",<,/,x%zU*U(1Q3xEXPRFEXPRMACROFSUBRGETLDEFINED-FUNCTION?)o`)S*)Uz W;|S$+\)m;