load sapini; dcl _1 : list(Slex) ; say _1 <== [ PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['m','a','i','n']), BLK(paras,[]), PUN([';']), KYW(['l', 'o','c','a','l']), VAL(IDT,['s']), PUN([',']), VAL(IDT,['t']), PUN([';']), VAL(IDT,['m','s','g','o','u','t']), PUN([';']), VAL(IDT,[ 't','k','n','i','d','e','n','t']), PUN([':','=']), VAL(ST1,['\047', 'i','d','e','n','t','i','f','i','e','r','\047']), PUN(['|']), BLK(paras,[BLK(paras,[VAL(ST1,['\047','n','u','m','e','r','i', 'c','\047']), PUN(['|']), VAL(ST1,['\047','s','t','r','i','n', 'g','\047']), PUN(['|']), VAL(ST1,['\047','c','h','a','r','a', 'c','t','e','r','\047'])]), PUN(['&']), VAL(ST1,['\047','_','l', 'i','t','e','r','a','l','\047'])]), PUN([';']), VAL(IDT,['k','e', 'y','w','o','r','d','s']), PUN([':','=']), VAL(ST2,['\042','A', 'B','O','R','T','_','\042']), PUN(['|']), VAL(ST2,['\042','A', 'B','S','_','\042']), PUN(['|']), VAL(ST2,['\042','A','C','C', 'E','P','T','_','\042']), PUN(['|']), VAL(ST2,['\042','A','C', 'C','E','S','S','_','\042']), PUN(['|']), VAL(ST2,['\042','A', 'L','L','_','\042']), PUN(['|']), VAL(ST2,['\042','A','N','D', '_','\042']), PUN(['|']), VAL(ST2,['\042','A','R','R','A','Y', '_','\042']), PUN(['|']), VAL(ST2,['\042','A','T','_','\042']), PUN(['|']), VAL(ST2,['\042','B','E','G','I','N','_','\042']), PUN(['|']), VAL(ST2,['\042','B','O','D','Y','_','\042']), PUN([ '|']), VAL(ST2,['\042','C','A','S','E','_','\042']), PUN(['|']), VAL(ST2,['\042','C','O','N','S','T','A','N','T','_','\042']), PUN(['|']), VAL(ST2,['\042','D','E','C','L','A','R','E','_','\042']), PUN(['|']), VAL(ST2,['\042','D','E','L','A','Y','_','\042']), PUN(['|']), VAL(ST2,['\042','D','E','L','T','A','_','\042']), PUN(['|']), VAL(ST2,['\042','D','I','G','I','T','S','_','\042']), PUN(['|']), VAL(ST2,['\042','D','O','_','\042']), PUN(['|']), VAL(ST2,['\042','E','L','S','E','_','\042']), PUN(['|']), VAL(ST2,[ '\042','E','L','S','I','F','_','\042']), PUN(['|']), VAL(ST2,[ '\042','E','N','D','_','\042']), PUN(['|']), VAL(ST2,['\042','E', 'N','T','R','Y','_','\042']), PUN(['|']), VAL(ST2,['\042','E', 'X','C','E','P','T','I','O','N','_','\042']), PUN(['|']), VAL(ST2,[ '\042','E','X','I','T','_','\042']), PUN(['|']), VAL(ST2,['\042', 'F','O','R','_','\042']), PUN(['|']), VAL(ST2,['\042','F','U', 'N','C','T','I','O','N','_','\042']), PUN(['|']), VAL(ST2,['\042', 'G','E','N','E','R','I','C','_','\042']), PUN(['|']), VAL(ST2,[ '\042','G','O','T','O','_','\042']), PUN(['|']), VAL(ST2,['\042', 'I','F','_','\042']), PUN(['|']), VAL(ST2,['\042','I','N','_', '\042']), PUN(['|']), VAL(ST2,['\042','I','S','_','\042']), PUN([ '|']), VAL(ST2,['\042','L','I','M','I','T','E','D','_','\042']), PUN(['|']), VAL(ST2,['\042','L','O','O','P','_','\042']), PUN([ '|']), VAL(ST2,['\042','M','O','D','_','\042']), PUN(['|']), VAL(ST2,[ '\042','N','E','W','_','\042']), PUN(['|']), VAL(ST2,['\042','N', 'O','T','_','\042']), PUN(['|']), VAL(ST2,['\042','N','U','L', 'L','_','\042']), PUN(['|']), VAL(ST2,['\042','O','F','_','\042']), PUN(['|']), VAL(ST2,['\042','O','R','_','\042']), PUN(['|']), VAL(ST2,['\042','O','T','H','E','R','S','_','\042']), PUN(['|']), VAL(ST2,['\042','O','U','T','_','\042']), PUN(['|']), VAL(ST2,[ '\042','P','A','C','K','A','G','E','_','\042']), PUN(['|']), VAL(ST2,[ '\042','P','R','A','G','M','A','_','\042']), PUN(['|']), VAL(ST2,[ '\042','P','R','I','V','A','T','E','_','\042']), PUN(['|']), VAL(ST2,[ '\042','P','R','O','C','E','D','U','R','E','_','\042']), PUN([ '|']), VAL(ST2,['\042','R','A','I','S','E','_','\042']), PUN([ '|']), VAL(ST2,['\042','R','A','N','G','E','_','\042']), PUN([ '|']), VAL(ST2,['\042','R','E','C','O','R','D','_','\042']), PUN([ '|']), VAL(ST2,['\042','R','E','M','_','\042']), PUN(['|']), VAL(ST2,[ '\042','R','E','N','A','M','E','S','_','\042']), PUN(['|']), VAL(ST2,[ '\042','R','E','T','U','R','N','_','\042']), PUN(['|']), VAL(ST2,[ '\042','R','E','V','E','R','S','E','_','\042']), PUN(['|']), VAL(ST2,[ '\042','S','E','L','E','C','T','_','\042']), PUN(['|']), VAL(ST2,[ '\042','S','E','P','A','R','A','T','E','_','\042']), PUN(['|']), VAL(ST2,['\042','S','U','B','T','Y','P','E','_','\042']), PUN([ '|']), VAL(ST2,['\042','T','A','S','K','_','\042']), PUN(['|']), VAL(ST2,['\042','T','E','R','M','I','N','A','T','E','_','\042']), PUN(['|']), VAL(ST2,['\042','T','H','E','N','_','\042']), PUN([ '|']), VAL(ST2,['\042','T','Y','P','E','_','\042']), PUN(['|']), VAL(ST2,['\042','U','S','E','_','\042']), PUN(['|']), VAL(ST2,[ '\042','W','H','E','N','_','\042']), PUN(['|']), VAL(ST2,['\042', 'W','H','I','L','E','_','\042']), PUN(['|']), VAL(ST2,['\042', 'W','I','T','H','_','\042']), PUN(['|']), VAL(ST2,['\042','X', 'O','R','_','\042']), PUN(['|']), VAL(ST2,['\042','A','R','R', 'O','W','_','\042']), PUN(['|']), VAL(ST2,['\042','D','B','L', 'D','O','T','_','\042']), PUN(['|']), VAL(ST2,['\042','E','X', 'P','_','\042']), PUN(['|']), VAL(ST2,['\042','A','S','S','I', 'G','N','_','\042']), PUN(['|']), VAL(ST2,['\042','N','O','T', 'E','Q','L','_','\042']), PUN(['|']), VAL(ST2,['\042','G','T', 'E','Q','L','_','\042']), PUN(['|']), VAL(ST2,['\042','L','T', 'E','Q','_','\042']), PUN(['|']), VAL(ST2,['\042','L','_','L', 'B','L','_','\042']), PUN(['|']), VAL(ST2,['\042','R','_','L', 'B','L','_','\042']), PUN(['|']), VAL(ST2,['\042','B','O','X', '_','\042']), PUN([';']), VAL(IDT,['n','o','n','t','e','r','m', 's']), PUN([':','=']), VAL(IDT,['s','p','a','n']), BLK(paras,[ VAL(ST1,['\047','_','\047']), PUN(['|','|']), VAL(IDT,['u','c', 'a','s','e','_']), PUN(['|','|']), VAL(IDT,['l','c','a','s','e', '_']), PUN(['|','|']), VAL(ST1,['\047','.','\047'])]), PUN([';']), VAL(IDT,['n','x','1']), PUN([':','=']), VAL(IDT,['n','o','t','a', 'n','y']), BLK(paras,[VAL(IDT,['u','c','a','s','e','_']), PUN([ '|','|']), VAL(ST1,['\047','_','\047'])]), PUN([';']), KYW(['i', 'f']), VAL(IDT,['d','o','s','p','a','r','m']), PUN(['?']), VAL(ST1,[ '\047','/','\047']), PUN(['&']), PUN(['&']), VAL(IDT,['v','i', 'd']), PUN(['.']), VAL(IDT,['f','i','d']), KYW(['t','h','e','n']), BLK(brces,[VAL(IDT,['i','f','i','l','e']), BLK(paras,[VAL(ST2,[ '\042','D','S','N','I','\042']), PUN([',']), VAL(DEN,['2']), PUN([ ',']), VAL(IDT,['f','i','d']), PUN(['|','|']), VAL(IDT,['d','o', 't']), PUN(['|','|']), VAL(ST1,['\047','G','R','Y','\047'])]), PUN([';']), VAL(IDT,['o','f','i','l','e']), BLK(paras,[VAL(ST2,[ '\042','Y','A','C','2','\042']), PUN([',']), VAL(DEN,['1','2']), PUN([',']), VAL(IDT,['f','i','d']), PUN(['|','|']), VAL(IDT,['d', 'o','t']), PUN(['|','|']), VAL(ST1,['\047','Y','C','2','\047']) ]), PUN([';']), VAL(IDT,['i','n','f','1']), PUN([':','=']), VAL(IDT,[ 't','a','b','l','e']), BLK(paras,[]), PUN([';']), VAL(IDT,['i', 'n','f','2']), PUN([':','=']), VAL(IDT,['t','a','b','l','e']), BLK(paras,[]), PUN([';']), VAL(IDT,['i','n','f','3']), PUN([':', '=']), VAL(IDT,['t','a','b','l','e']), BLK(paras,[]), PUN([';']), VAL(IDT,['i','n','f','4']), PUN([':','=']), VAL(IDT,['t','a','b', 'l','e']), BLK(paras,[]), PUN([';']), KYW(['w','h','i','l','e']), VAL(IDT,['s']), PUN([':','=']), VAL(IDT,['D','S','N','I']), KYW([ 'd','o']), BLK(brces,[VAL(IDT,['t']), PUN(['|','|',':','=']), VAL(IDT,['s']), PUN(['|','|']), VAL(IDT,['c','r','l','f','_']), PUN([';']), VAL(IDT,['s']), PUN(['?','-']), VAL(IDT,['w','s','_']), PUN(['&']), VAL(IDT,['r','m','_']), PUN([';']), KYW(['i','f']), VAL(IDT,['s']), PUN(['?']), VAL(ST1,['\047',';','\047']), PUN([ '&']), VAL(IDT,['r','m','_']), KYW(['t','h','e','n']), VAL(IDT,[ 't']), PUN([':','=']), VAL(IDT,['p','r','o','c']), BLK(paras,[ VAL(IDT,['l','o']), BLK(paras,[VAL(IDT,['S','a','n','e']), BLK(paras,[ VAL(IDT,['b','l','x']), BLK(paras,[VAL(IDT,['t'])])])])])]), PUN([ ';']), VAL(IDT,['e','n','d','f','i','l','e']), BLK(paras,[VAL(DEN,[ '2'])]), PUN([';']), VAL(IDT,['e','n','d','f','i','l','e']), BLK(paras,[ VAL(DEN,['1','2'])])]), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['p','r','o','c']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['l','o','c','a', 'l']), VAL(IDT,['p','1']), PUN([',']), VAL(IDT,['p','2']), PUN([ ',']), VAL(IDT,['p','3']), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,['q','1']), PUN([',']), VAL(IDT,['q','2']), PUN([',']), VAL(IDT,['q','3']), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,[ 'q']), PUN([',']), VAL(IDT,['i']), PUN([';']), VAL(IDT,['p','r', 'd']), PUN(['+',':','=']), VAL(DEN,['1']), PUN([';']), VAL(IDT,[ 'a','r','m']), PUN([':','=']), VAL(DEN,['0']), PUN([';']), VAL(IDT,[ 's']), PUN(['?']), VAL(IDT,['l','m','_']), PUN(['&']), VAL(IDT,[ 'a','r','b']), PUN(['.']), VAL(IDT,['p','1']), PUN(['&']), VAL(ST1,[ '\047','N','T','M','\047']), PUN(['&']), PUN(['&']), VAL(IDT,[ 'n','u','m']), PUN(['.']), VAL(IDT,['p','2']), PUN(['&']), VAL(IDT,[ 'w','s','_']), PUN(['.']), VAL(IDT,['p','3']), PUN(['&']), VAL(ST1,[ '\047',':','\047']), PUN(['<','-']), VAL(ST1,['\047',':','\047']), PUN([';']), KYW(['w','h','i','l','e']), VAL(IDT,['s']), PUN(['?']), BLK(paras,[VAL(ST1,['\047',':','\047']), PUN(['|']), VAL(ST1,[ '\047','|','\047'])]), PUN(['.']), VAL(IDT,['q','1']), PUN(['&']), VAL(IDT,['a','r','b']), PUN(['.']), VAL(IDT,['q','2']), PUN(['&']), BLK(paras,[VAL(ST1,['\047','|','\047']), PUN(['|']), VAL(ST1,[ '\047',';','\047'])]), PUN(['.']), VAL(IDT,['q','3']), PUN(['<', '-']), VAL(IDT,['q','3']), KYW(['d','o']), VAL(IDT,['q']), PUN([ '|','|',':','=']), VAL(IDT,['f','i','x']), BLK(paras,[VAL(IDT,[ 'q','1']), PUN([',']), VAL(IDT,['q','2'])]), PUN([';']), VAL(IDT,[ 's']), PUN(['?','-']), VAL(ST1,['\047',';','\047']), PUN(['&']), VAL(IDT,['w','s','_']), PUN(['&']), VAL(IDT,['r','m','_']), PUN([ ';']), VAL(IDT,['e','m','i','t']), BLK(paras,[VAL(ST1,['\047', '2','\047']), PUN([',']), VAL(IDT,['B','u','i','l','d']), BLK(paras,[ VAL(IDT,['p','1']), PUN(['|','|']), VAL(ST1,['\047','N','T','M', '\047']), PUN(['|','|']), VAL(IDT,['p','2']), PUN(['|','|']), VAL(IDT,['p','3']), PUN(['|','|']), VAL(IDT,['q']), PUN(['|','|']), VAL(IDT,['b','l','x']), BLK(paras,[VAL(ST1,['\047',';','\047']) ])])]), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u', 'n','c','t','i','o','n']), VAL(IDT,['B','u','i','l','d']), BLK(paras,[ VAL(IDT,['s'])]), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,[ 'a']), PUN([';']), VAL(IDT,['r','e','p','e','a','t']), VAL(IDT,[ 's']), PUN(['?']), VAL(IDT,['e','l','e','m']), PUN(['&']), PUN([ '&']), VAL(IDT,['n','u','m']), PUN(['.']), VAL(IDT,['a']), PUN([ '<','-']), VAL(IDT,['i','n','f','2']), BLK(brcks,[VAL(IDT,['e', 'v','a','l']), BLK(paras,[VAL(IDT,['a'])])]), PUN([';']), KYW([ 'r','e','t','u','r','n']), VAL(IDT,['s']), PUN([';']), KYW(['e', 'n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['f','i','x']), BLK(paras,[VAL(IDT,['a','1']), PUN([',']), VAL(IDT,['a','2'])]), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,['a']), PUN([';']), VAL(IDT,['a','r','m']), PUN(['+',':', '=']), VAL(DEN,['1']), PUN([';']), VAL(IDT,['a']), PUN([':','=']), VAL(IDT,['c','r','l','f','_']), PUN([';']), VAL(IDT,['a']), PUN([ '|','|',':','=']), VAL(IDT,['p','r','o','l','o','g','u','e']), BLK(paras,[]), PUN([';']), VAL(IDT,['a']), PUN(['|','|',':','=']), VAL(IDT,['d','o','d','e','f']), BLK(paras,[VAL(ST1,['\047','C', 'L','I','P','S','\047']), PUN([',']), VAL(IDT,['p','r','i','n', 't','o','u','t']), BLK(paras,[VAL(IDT,['a','2'])])]), PUN([';']), VAL(IDT,['a']), PUN(['|','|',':','=']), VAL(IDT,['c','r','l','f', '_']), PUN([';']), VAL(IDT,['a']), PUN(['|','|',':','=']), VAL(IDT,[ 'd','o','d','e','f']), BLK(paras,[VAL(ST1,['\047','A','D','A', 'F','E','\047']), PUN([',']), VAL(IDT,['i','n','t','e','r','o', 'u','t']), BLK(paras,[VAL(IDT,['a','2'])])]), PUN([';']), VAL(IDT,[ 'a']), PUN(['|','|',':','=']), VAL(IDT,['c','r','l','f','_']), PUN([';']), VAL(IDT,['a']), PUN(['|','|',':','=']), VAL(IDT,['e', 'p','i','l','o','g','u','e']), BLK(paras,[]), PUN([';']), VAL(IDT,[ 'a','2']), PUN(['?','-']), VAL(IDT,['w','s','_']), PUN(['&']), VAL(IDT,['r','m','_']), PUN([';']), VAL(IDT,['a','2']), PUN(['|', '|',':','=']), VAL(IDT,['b','l','n','_']), PUN([';']), VAL(IDT,[ 'a','2']), PUN(['|','|',':','=']), VAL(IDT,['b','r','c','e','s']), BLK(paras,[VAL(IDT,['a']), PUN(['|','|']), VAL(IDT,['d','u','p', 'l']), BLK(paras,[VAL(IDT,['b','l','n','_']), PUN([',']), VAL(DEN,[ '7','5'])])]), PUN([';']), VAL(IDT,['a','2']), PUN(['|','|',':', '=']), VAL(IDT,['c','r','l','f','_']), PUN([';']), KYW(['r','e', 't','u','r','n']), VAL(IDT,['a','1']), PUN(['|','|']), VAL(IDT,[ 'a','2']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f', 'u','n','c','t','i','o','n']), VAL(IDT,['p','r','o','l','o','g', 'u','e']), BLK(paras,[]), PUN([';']), VAL(IDT,['f','r','e']), PUN([':','=']), VAL(ST1,['\047','\047']), PUN([';']), KYW(['r', 'e','t','u','r','n']), VAL(ST1,['\047','\047']), PUN([';']), KYW([ 'e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['e','p','i','l','o','g','u','e']), BLK(paras,[]), PUN([ ';']), KYW(['r','e','t','u','r','n']), VAL(ST1,['\047','\047']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c', 't','i','o','n']), VAL(IDT,['c','l','x']), BLK(paras,[VAL(IDT,[ 's'])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(ST1,[ '\047','-','\047']), PUN(['|','|']), VAL(IDT,['s']), PUN(['|', '|']), VAL(ST1,['\047','-','\047']), PUN([';']), KYW(['e','n', 'd']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,[ 'p','r','i','n','t','o','u','t']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['s','t','m']), BLK(paras,[VAL(ST1,['\047','$','$','\047']), PUN(['|','|']), VAL(IDT,[ 'b','l','x']), BLK(paras,[VAL(ST1,['\047','=','\047'])]), PUN([ '|','|']), VAL(ST1,['\047','e','m','i','t','p','r','e','\047']), PUN(['|','|']), VAL(IDT,['p','a','r','a','s']), BLK(paras,[VAL(IDT,[ 't','i','x','2']), BLK(paras,[VAL(ST1,['\047','I','T','E','M', '\047']), PUN(['|','|']), VAL(IDT,['b','l','x']), BLK(paras,[VAL(IDT,[ 'l','p','a','d']), BLK(paras,[VAL(IDT,['p','r','d']), PUN([',']), VAL(DEN,['5']), PUN([',']), VAL(IDT,['b','l','n','_'])])]), PUN([ '|','|']), VAL(IDT,['l','p','a','d']), BLK(paras,[VAL(IDT,['a', 'r','m']), PUN([',']), VAL(DEN,['3']), PUN([',']), VAL(IDT,['b', 'l','n','_'])])])])]), PUN(['|','|']), VAL(IDT,['a','c','t']), BLK(paras,[VAL(IDT,['s'])]), PUN(['|','|']), VAL(IDT,['s','t', 'm']), BLK(paras,[VAL(ST1,['\047','e','m','i','t','f','i','n', '\047']), PUN(['|','|']), VAL(IDT,['p','a','r','a','s']), BLK(paras,[ VAL(ST1,['\047','\047'])])]), PUN(['|','|']), VAL(IDT,['f','r', 'e']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u', 'n','c','t','i','o','n']), VAL(IDT,['i','n','t','e','r','o','u', 't']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['r','e','t', 'u','r','n']), VAL(IDT,['c','m','t']), BLK(paras,[VAL(ST1,['\047', '<','f','r','o','n','t','-','e','n','d','>','\047'])]), PUN(['|', '|']), VAL(IDT,['c','r','l','f','_']), PUN([';']), KYW(['e','n', 'd']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,[ 'a','c','t']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['l', 'o','c','a','l']), VAL(IDT,['t']), PUN([',']), VAL(IDT,['q','1']), PUN([',']), VAL(IDT,['q','2']), PUN([';']), VAL(IDT,['d','o','l', 'l','a','r']), PUN([':','=']), VAL(DEN,['0']), PUN([';']), VAL(IDT,[ 'e','l','e','m','e','n','t']), PUN([':','=']), VAL(DEN,['0']), PUN([';']), KYW(['w','h','i','l','e']), VAL(IDT,['s']), PUN(['?', '-']), VAL(IDT,['w','s','_']), PUN(['&']), VAL(IDT,['e','l','e', 'm']), PUN(['.']), VAL(IDT,['q','1']), PUN(['&']), PUN(['&']), VAL(IDT,['n','u','m']), PUN(['.']), VAL(IDT,['q','2']), PUN(['&']), VAL(IDT,['w','s','_']), KYW(['d','o']), BLK(brces,[VAL(IDT,['c', 'o','n','d']), VAL(IDT,['q','1']), BLK(brces,[KYW(['c','a','s', 'e']), VAL(ST1,['\047','N','T','M','\047']), PUN([':']), VAL(IDT,[ 't']), PUN(['|','|',':','=']), VAL(IDT,['d','l','r']), BLK(paras,[ ]), PUN([';']), KYW(['c','a','s','e']), VAL(ST1,['\047','T','K', 'N','\047']), PUN([':']), VAL(IDT,['t']), PUN(['|','|',':','=']), VAL(IDT,['t','k','x']), BLK(paras,[VAL(IDT,['q','2'])]), PUN([ ';']), KYW(['c','a','s','e']), VAL(ST1,['\047','K','Y','W','\047']), PUN([':']), VAL(IDT,['t']), PUN(['|','|',':','=']), VAL(IDT,['s', 'k','p']), BLK(paras,[]), PUN([';']), KYW(['c','a','s','e']), VAL(ST1,['\047','S','1','T','\047']), PUN([':']), VAL(IDT,['t']), PUN(['|','|',':','=']), VAL(IDT,['s','k','p']), BLK(paras,[]), PUN([';']), KYW(['c','a','s','e']), VAL(ST1,['\047','S','2','T', '\047']), PUN([':']), VAL(IDT,['t']), PUN(['|','|',':','=']), VAL(IDT,['s','k','p']), BLK(paras,[]), PUN([';']), KYW(['c','a', 's','e']), VAL(ST1,['\047','C','M','T','\047']), PUN([':']), VAL(IDT,[ 't']), PUN(['|','|',':','=']), VAL(ST1,['\047','\047'])])]), PUN([ ';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['t']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o', 'n']), VAL(IDT,['d','l','r']), BLK(paras,[]), PUN([';']), VAL(IDT,[ 'd','o','l','l','a','r']), PUN(['+',':','=']), VAL(DEN,['1']), PUN([';']), VAL(IDT,['e','l','e','m','e','n','t']), PUN(['+',':', '=']), VAL(DEN,['1']), PUN([';']), VAL(IDT,['f','r','e']), PUN([ '|','|',':','=']), VAL(IDT,['s','t','m']), BLK(paras,[VAL(IDT,[ 'f','r','e','e']), BLK(paras,[VAL(ST1,['\047','$','\047']), PUN([ '|','|']), VAL(IDT,['d','o','l','l','a','r'])])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['s','t','m']), BLK(paras,[ VAL(ST1,['\047','e','m','i','t','n','t','m','\047']), PUN(['|', '|']), VAL(IDT,['p','a','r','a','s']), BLK(paras,[VAL(ST1,['\047', '$','\047']), PUN(['|','|']), VAL(IDT,['d','o','l','l','a','r']) ])]), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u', 'n','c','t','i','o','n']), VAL(IDT,['t','k','x']), BLK(paras,[ VAL(IDT,['q'])]), PUN([';']), VAL(IDT,['d','o','l','l','a','r']), PUN(['+',':','=']), VAL(DEN,['1']), PUN([';']), VAL(IDT,['e','l', 'e','m','e','n','t']), PUN(['+',':','=']), VAL(DEN,['1']), PUN([ ';']), VAL(IDT,['f','r','e']), PUN(['|','|',':','=']), VAL(IDT,[ 's','t','m']), BLK(paras,[VAL(IDT,['f','r','e','e']), BLK(paras,[ VAL(ST1,['\047','$','\047']), PUN(['|','|']), VAL(IDT,['d','o', 'l','l','a','r'])])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['s','t','m']), BLK(paras,[VAL(ST1,['\047','e','m','i', 't','\047']), PUN(['|','|']), VAL(IDT,['R','e','T','k','n']), BLK(paras,[VAL(IDT,['q'])]), PUN(['|','|']), VAL(IDT,['p','a', 'r','a','s']), BLK(paras,[VAL(ST1,['\047','$','\047']), PUN(['|', '|']), VAL(IDT,['d','o','l','l','a','r'])])]), PUN([';']), KYW([ 'e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['R','e','T','k','n']), BLK(paras,[VAL(IDT,['a'])]), PUN([ ';']), VAL(IDT,['c','o','n','d']), VAL(IDT,['i','n','f','2']), BLK(brcks,[VAL(IDT,['e','v','a','l']), BLK(paras,[VAL(IDT,['a']) ])]), BLK(brces,[KYW(['c','a','s','e']), VAL(ST1,['\047','I','D', 'E','N','T','I','F','I','E','R','\047']), PUN([':']), KYW(['r', 'e','t','u','r','n']), VAL(ST1,['\047','i','d','t','\047']), PUN([ ';']), KYW(['c','a','s','e']), VAL(ST1,['\047','N','U','M','E', 'R','I','C','_','L','I','T','E','R','A','L','\047']), PUN([':']), KYW(['r','e','t','u','r','n']), VAL(ST1,['\047','n','b','r','\047']), PUN([';']), KYW(['c','a','s','e']), VAL(ST1,['\047','C','H','A', 'R','A','C','T','E','R','_','L','I','T','E','R','A','L','\047']), PUN([':']), KYW(['r','e','t','u','r','n']), VAL(ST1,['\047','c', 'h','r','\047']), PUN([';']), KYW(['c','a','s','e']), VAL(ST1,[ '\047','S','T','R','I','N','G','_','L','I','T','E','R','A','L', '\047']), PUN([':']), KYW(['r','e','t','u','r','n']), VAL(ST1,[ '\047','s','t','r','\047']), PUN([';']), KYW(['d','e','f','a', 'u','l','t']), PUN([':']), KYW(['r','e','t','u','r','n']), VAL(ST1,[ '\047','x','x','x','\047'])]), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['s', 'k','p']), BLK(paras,[]), PUN([';']), VAL(IDT,['d','o','l','l', 'a','r']), PUN(['+',':','=']), VAL(DEN,['1']), PUN([';']), KYW([ 'e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['d','o','d','e','f']), BLK(paras,[VAL(IDT,['s']), PUN([ ',']), VAL(IDT,['t'])]), PUN([';']), KYW(['r','e','t','u','r', 'n']), VAL(ST1,['\047','#','i','f','d','e','f','\047']), PUN([ '|','|']), VAL(IDT,['b','l','n','_']), PUN(['|','|']), VAL(IDT,[ 's']), PUN(['|','|']), VAL(IDT,['c','r','l','f','_']), PUN(['|', '|']), VAL(IDT,['t']), PUN(['|','|']), VAL(ST1,['\047','#','e', 'n','d','i','f','\047']), PUN([';']), KYW(['e','n','d']), PUN([ ';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['s','t', 'm']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['r','e','t', 'u','r','n']), VAL(IDT,['d','u','p','l']), BLK(paras,[VAL(IDT,[ 'b','l','n','_']), PUN([',']), VAL(DEN,['2','0'])]), PUN(['|', '|']), VAL(IDT,['s']), PUN(['|','|']), VAL(ST1,['\047',';','\047']), PUN(['|','|']), VAL(IDT,['c','r','l','f','_']), PUN([';']), KYW([ 'e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['m','a','l','l','o','c']), BLK(paras,[VAL(IDT,['x'])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(ST1,['\047','m', 'a','l','l','o','c','\047']), PUN(['|','|']), VAL(IDT,['p','a', 'r','a','s']), BLK(paras,[VAL(IDT,['x'])]), PUN([';']), KYW(['e', 'n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['c','d','c','l','1']), BLK(paras,[VAL(IDT,['x']), PUN([ ',']), VAL(IDT,['y'])]), PUN([';']), KYW(['r','e','t','u','r', 'n']), VAL(IDT,['x']), PUN(['|','|']), VAL(IDT,['b','l','n','_']), PUN(['|','|']), VAL(IDT,['y']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['c', 'd','c','l','2']), BLK(paras,[VAL(IDT,['x']), PUN([',']), VAL(IDT,[ 'y'])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,[ 'x']), PUN(['|','|']), VAL(IDT,['b','l','n','_']), PUN(['|','|']), VAL(ST1,['\047','*','\047']), PUN(['|','|']), VAL(IDT,['y']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c', 't','i','o','n']), VAL(IDT,['c','a','s','t','2']), BLK(paras,[ VAL(IDT,['x'])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['p','a','r','a','s']), BLK(paras,[VAL(IDT,['x']), PUN([ '|','|']), VAL(IDT,['b','l','n','_']), PUN(['|','|']), VAL(ST1,[ '\047','*','\047'])]), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['f','r','e','e']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['r','e','t','u', 'r','n']), VAL(ST1,['\047','f','r','e','e','\047']), PUN(['|', '|']), VAL(IDT,['p','a','r','a','s']), BLK(paras,[VAL(IDT,['s']) ]), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n', 'c','t','i','o','n']), VAL(IDT,['P','l','a','c','e']), BLK(paras,[ VAL(IDT,['a']), PUN([',']), VAL(IDT,['b'])]), PUN([';']), KYW([ 'i','f']), VAL(IDT,['i','n','f','1']), BLK(brcks,[VAL(IDT,['b']) ]), PUN(['=','=','=']), VAL(ST1,['\047','\047']), KYW(['t','h', 'e','n']), BLK(brces,[VAL(IDT,['b','m','p']), PUN(['+',':','=']), VAL(DEN,['1']), PUN([';']), VAL(IDT,['i','n','f','1']), BLK(brcks,[ VAL(IDT,['b'])]), PUN([':','=']), VAL(IDT,['b','m','p']), PUN([ ';']), KYW(['i','f']), VAL(IDT,['a']), PUN(['=','=','=']), VAL(ST1,[ '\047','S','1','T','\047']), KYW(['t','h','e','n']), VAL(IDT,[ 'i','n','f','2']), BLK(brcks,[VAL(IDT,['b','m','p'])]), PUN([':', '=']), VAL(IDT,['t','i','x','1']), BLK(paras,[VAL(IDT,['b'])]), PUN([';']), KYW(['e','l','s','e']), PUN([';']), KYW(['i','f']), VAL(IDT,['a']), PUN(['=','=','=']), VAL(ST1,['\047','S','2','T', '\047']), KYW(['t','h','e','n']), VAL(IDT,['i','n','f','2']), BLK(brcks,[VAL(IDT,['b','m','p'])]), PUN([':','=']), VAL(IDT,[ 't','i','x','2']), BLK(paras,[VAL(IDT,['b'])]), PUN([';']), KYW([ 'e','l','s','e']), PUN([';']), KYW(['i','f']), VAL(IDT,['a']), PUN(['=','=','=']), VAL(ST1,['\047','C','M','T','\047']), KYW([ 't','h','e','n']), VAL(IDT,['i','n','f','2']), BLK(brcks,[VAL(IDT,[ 'b','m','p'])]), PUN([':','=']), VAL(IDT,['c','m','t']), BLK(paras,[ VAL(IDT,['b'])]), PUN([';']), KYW(['e','l','s','e']), VAL(IDT,[ 'i','n','f','2']), BLK(brcks,[VAL(IDT,['b','m','p'])]), PUN([':', '=']), VAL(IDT,['b'])]), PUN([';']), KYW(['r','e','t','u','r', 'n']), VAL(IDT,['h','i']), BLK(paras,[VAL(IDT,['a']), PUN(['|', '|']), VAL(IDT,['i','n','f','1']), BLK(brcks,[VAL(IDT,['b'])]) ]), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n', 'c','t','i','o','n']), VAL(IDT,['h','i']), BLK(paras,[VAL(IDT,[ 's'])]), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,['c']), PUN([',']), VAL(IDT,['t']), PUN([';']), KYW(['w','h','i','l','e']), VAL(IDT,['s']), PUN(['?','-']), VAL(IDT,['l','m','_']), PUN(['&']), VAL(IDT,['l','e','n']), BLK(paras,[VAL(DEN,['1'])]), PUN(['.']), VAL(IDT,['c']), KYW(['d','o']), KYW(['i','f']), VAL(IDT,['a','s', 'c']), BLK(paras,[VAL(IDT,['c'])]), PUN(['>']), VAL(DEN,['1','2', '7']), KYW(['t','h','e','n']), VAL(IDT,['t']), PUN(['|','|',':', '=']), VAL(IDT,['c']), PUN([';']), KYW(['e','l','s','e']), VAL(IDT,[ 't']), PUN(['|','|',':','=']), VAL(IDT,['c','h','r']), BLK(paras,[ VAL(IDT,['a','s','c']), BLK(paras,[VAL(IDT,['c'])]), PUN(['+']), VAL(DEN,['1','2','8'])]), PUN([';']), KYW(['r','e','t','u','r', 'n']), VAL(IDT,['t']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['l','o']), BLK(paras,[ VAL(IDT,['s'])]), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,[ 'c']), PUN([',']), VAL(IDT,['t']), PUN([';']), KYW(['w','h','i', 'l','e']), VAL(IDT,['s']), PUN(['?','-']), VAL(IDT,['l','m','_']), PUN(['&']), VAL(IDT,['l','e','n']), BLK(paras,[VAL(DEN,['1'])]), PUN(['.']), VAL(IDT,['c']), KYW(['d','o']), KYW(['i','f']), VAL(IDT,[ 'a','s','c']), BLK(paras,[VAL(IDT,['c'])]), PUN(['>']), VAL(DEN,[ '1','2','7']), KYW(['t','h','e','n']), VAL(IDT,['t']), PUN(['|', '|',':','=']), VAL(IDT,['c','h','r']), BLK(paras,[VAL(IDT,['a', 's','c']), BLK(paras,[VAL(IDT,['c'])]), PUN(['-']), VAL(DEN,['1', '2','8'])]), PUN([';']), KYW(['e','l','s','e']), VAL(IDT,['t']), PUN(['|','|',':','=']), VAL(IDT,['c']), PUN([';']), KYW(['r','e', 't','u','r','n']), VAL(IDT,['t']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['U', 'n','T','k','n']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW([ 'l','o','c','a','l']), VAL(IDT,['t','m','p']), PUN([';']), VAL(IDT,[ 'r','e','p','e','a','t']), VAL(IDT,['s']), PUN(['?']), VAL(IDT,[ 't','k','n','i','d','e','n','t']), PUN(['.']), VAL(IDT,['t','m', 'p']), PUN(['<','-']), VAL(IDT,['P','l','a','c','e']), BLK(paras,[ VAL(ST1,['\047','T','K','N','\047']), PUN([',']), VAL(IDT,['u', 'p','p','e','r','_']), BLK(paras,[VAL(IDT,['t','m','p'])])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['s']), PUN([ ';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t', 'i','o','n']), VAL(IDT,['U','n','K','y','w']), BLK(paras,[VAL(IDT,[ 's'])]), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,['t', 'm','p']), PUN([',']), VAL(IDT,['c','1']), PUN([',']), VAL(IDT,[ 'c','2']), PUN([';']), VAL(IDT,['r','e','p','e','a','t']), VAL(IDT,[ 's']), PUN(['?']), VAL(IDT,['n','x','1']), PUN(['.']), VAL(IDT,[ 'c','1']), PUN(['&']), VAL(IDT,['k','e','y','w','o','r','d','s']), PUN(['.']), VAL(IDT,['t','m','p']), PUN(['&']), VAL(IDT,['n','x', '1']), PUN(['.']), VAL(IDT,['c','2']), PUN(['<','-']), VAL(IDT,[ 'c','1']), PUN(['|','|']), VAL(IDT,['P','l','a','c','e']), BLK(paras,[ VAL(ST1,['\047','K','Y','W','\047']), PUN([',']), VAL(IDT,['t', 'm','p'])]), PUN(['|','|']), VAL(IDT,['c','2']), PUN([';']), KYW([ 'r','e','t','u','r','n']), VAL(IDT,['s']), PUN([';']), KYW(['e', 'n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['U','n','N','t','m']), BLK(paras,[VAL(IDT,['s'])]), PUN([ ';']), KYW(['l','o','c','a','l']), VAL(IDT,['t','m','p']), PUN([ ';']), VAL(IDT,['r','e','p','e','a','t']), VAL(IDT,['s']), PUN([ '?']), VAL(IDT,['n','o','n','t','e','r','m','s']), PUN(['.']), VAL(IDT,['t','m','p']), PUN(['<','-']), VAL(IDT,['P','l','a','c', 'e']), BLK(paras,[VAL(ST1,['\047','N','T','M','\047']), PUN([',']), VAL(IDT,['t','m','p'])]), PUN([';']), KYW(['r','e','t','u','r', 'n']), VAL(IDT,['s']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c','t','i','o','n']), VAL(IDT,['U','n','S','t', 'r','1']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['l','o', 'c','a','l']), VAL(IDT,['t','m','p']), PUN([';']), VAL(IDT,['s']), PUN(['?']), VAL(IDT,['t','i','c','1']), PUN(['&']), VAL(IDT,['a', 'r','b','n','o']), BLK(paras,[BLK(paras,[VAL(IDT,['b','a','c', 'k','s','l','a','n','t']), PUN(['&']), VAL(IDT,['t','i','c','1']) ]), PUN(['|']), VAL(IDT,['n','o','t','a','n','y']), BLK(paras,[ VAL(IDT,['t','i','c','1'])]), PUN(['|']), BLK(paras,[VAL(IDT,[ 't','i','c','1']), PUN(['&']), VAL(IDT,['t','i','c','1'])])]), PUN(['.']), VAL(IDT,['t','m','p']), PUN(['&']), VAL(IDT,['t','i', 'c','1']), PUN(['<','-']), VAL(IDT,['P','l','a','c','e']), BLK(paras,[ VAL(ST1,['\047','S','1','T','\047']), PUN([',']), VAL(IDT,['t', 'm','p'])]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,[ 's']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u', 'n','c','t','i','o','n']), VAL(IDT,['U','n','S','t','r','2']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['l','o','c','a', 'l']), VAL(IDT,['t','m','p']), PUN([';']), VAL(IDT,['s']), PUN([ '?']), VAL(IDT,['t','i','c','2']), PUN(['&']), VAL(IDT,['a','r', 'b','n','o']), BLK(paras,[BLK(paras,[VAL(IDT,['b','a','c','k', 's','l','a','n','t']), PUN(['&']), VAL(IDT,['t','i','c','2'])]), PUN(['|']), VAL(IDT,['n','o','t','a','n','y']), BLK(paras,[VAL(IDT,[ 't','i','c','2'])]), PUN(['|']), BLK(paras,[VAL(IDT,['t','i','c', '2']), PUN(['&']), VAL(IDT,['t','i','c','2'])])]), PUN(['.']), VAL(IDT,['t','m','p']), PUN(['&']), VAL(IDT,['t','i','c','2']), PUN(['<','-']), VAL(IDT,['P','l','a','c','e']), BLK(paras,[VAL(ST1,[ '\047','S','2','T','\047']), PUN([',']), VAL(IDT,['t','m','p']) ]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['s']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c', 't','i','o','n']), VAL(IDT,['U','n','C','o','m','t']), BLK(paras,[ VAL(IDT,['s'])]), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,[ 't','m','p']), PUN([';']), VAL(IDT,['s']), PUN(['?']), VAL(ST2,[ '\042','/','*','\042']), PUN(['&']), VAL(IDT,['a','r','b','n', 'o']), BLK(paras,[KYW(['b','r','e','a','k']), BLK(paras,[VAL(ST1,[ '\047','*','\047'])]), PUN(['|']), BLK(paras,[VAL(ST1,['\047', '*','\047']), PUN(['&']), VAL(IDT,['n','o','t','a','n','y']), BLK(paras,[VAL(ST1,['\047','/','\047'])])])]), PUN(['.']), VAL(IDT,[ 't','m','p']), PUN(['&']), VAL(ST2,['\042','*','/','\042']), PUN([ '<','-']), VAL(IDT,['P','l','a','c','e']), BLK(paras,[VAL(ST1,[ '\047','C','M','T','\047']), PUN([',']), VAL(IDT,['t','m','p']) ]), PUN([';']), KYW(['r','e','t','u','r','n']), VAL(IDT,['s']), PUN([';']), KYW(['e','n','d']), PUN([';']), KYW(['f','u','n','c', 't','i','o','n']), VAL(IDT,['S','a','n','e']), BLK(paras,[VAL(IDT,[ 's'])]), PUN([';']), KYW(['l','o','c','a','l']), VAL(IDT,['t', 'm','p']), PUN([';']), KYW(['w','h','i','l','e']), VAL(IDT,['s']), PUN(['?']), BLK(paras,[VAL(IDT,['t','i','c','1']), PUN(['|']), VAL(IDT,['t','i','c','2']), PUN(['|']), VAL(ST2,['\042','/','*', '\042'])]), PUN(['.']), VAL(IDT,['t','m','p']), KYW(['d','o']), VAL(IDT,['c','o','n','d']), VAL(IDT,['t','m','p']), BLK(brces,[ KYW(['c','a','s','e']), VAL(IDT,['t','i','c','1']), PUN([':']), VAL(IDT,['s']), PUN([':','=']), VAL(IDT,['U','n','S','t','r','1']), BLK(paras,[VAL(IDT,['s'])]), PUN([';']), KYW(['c','a','s','e']), VAL(IDT,['t','i','c','2']), PUN([':']), VAL(IDT,['s']), PUN([':', '=']), VAL(IDT,['U','n','S','t','r','2']), BLK(paras,[VAL(IDT,[ 's'])]), PUN([';']), KYW(['c','a','s','e']), VAL(ST2,['\042','/', '*','\042']), PUN([':']), VAL(IDT,['s']), PUN([':','=']), VAL(IDT,[ 'U','n','C','o','m','t']), BLK(paras,[VAL(IDT,['s'])])]), PUN([ ';']), VAL(IDT,['r','e','p','e','a','t']), VAL(IDT,['s']), PUN([ '?','-']), VAL(ST1,['\047','#','i','f','d','e','f','\047']), PUN([ '&']), KYW(['b','r','e','a','k']), BLK(paras,[VAL(ST1,['\047', '#','\047'])]), PUN(['&']), VAL(ST1,['\047','#','e','n','d','i', 'f','\047']), PUN([';']), VAL(IDT,['r','e','p','e','a','t']), VAL(IDT,['s']), PUN(['?','-']), VAL(ST1,['\047','{','\047']), PUN(['&']), VAL(IDT,['b','r','c']), PUN(['&']), VAL(ST1,['\047', '}','\047']), PUN([';']), KYW(['e','n','d']), PUN([';'])] ;