activeandtrueXmarkXactiveandfalseYmarkfalseactiveiftrueXYmarkXactiveiffalseXYmarkYactiveadd0XmarkXactiveaddsXYmarksaddXYactivefirst0XmarknilactivefirstsXconsYZmarkconsYfirstXZactivefromXmarkconsXfromsXmarkandX1X2activeandmarkX1X2marktrueactivetruemarkfalseactivefalsemarkifX1X2X3activeifmarkX1X2X3markaddX1X2activeaddmarkX1X2mark0active0marksXactivesXmarkfirstX1X2activefirstmarkX1markX2marknilactivenilmarkconsX1X2activeconsX1X2markfromXactivefromXandmarkX1X2andX1X2andX1markX2andX1X2andactiveX1X2andX1X2andX1activeX2andX1X2ifmarkX1X2X3ifX1X2X3ifX1markX2X3ifX1X2X3ifX1X2markX3ifX1X2X3ifactiveX1X2X3ifX1X2X3ifX1activeX2X3ifX1X2X3ifX1X2activeX3ifX1X2X3addmarkX1X2addX1X2addX1markX2addX1X2addactiveX1X2addX1X2addX1activeX2addX1X2smarkXsXsactiveXsXfirstmarkX1X2firstX1X2firstX1markX2firstX1X2firstactiveX1X2firstX1X2firstX1activeX2firstX1X2consmarkX1X2consX1X2consX1markX2consX1X2consactiveX1X2consX1X2consX1activeX2consX1X2frommarkXfromXfromactiveXfromXactive1and2true0mark1false0if3add200s1first2nil0cons2from1FULL./TRS/TRCSR/Ex15_Luc98_iGM.trs