a__primesa__sievea__fromss0a__fromXconsmarkXfromsXa__headconsXYmarkXa__tailconsXYmarkYa__iftrueXYmarkXa__iffalseXYmarkYa__filterssXconsYZa__ifdividesssmarkXmarkYfilterssXZconsYfilterXsieveYa__sieveconsXYconsmarkXfilterXsieveYmarkprimesa__primesmarksieveXa__sievemarkXmarkfromXa__frommarkXmarkheadXa__headmarkXmarktailXa__tailmarkXmarkifX1X2X3a__ifmarkX1X2X3markfilterX1X2a__filtermarkX1markX2marksXsmarkXmark00markconsX1X2consmarkX1X2marktruetruemarkfalsefalsemarkdividesX1X2dividesmarkX1markX2a__primesprimesa__sieveXsieveXa__fromXfromXa__headXheadXa__tailXtailXa__ifX1X2X3ifX1X2X3a__filterX1X2filterX1X2a__primes0a__sieve1a__from1s100cons2mark1from1a__head1a__tail1a__if3true0false0a__filter2divides2filter2sieve1primes0head1tail1if3FULL./TRS/TRCSR/ExIntrod_GM99_GM.trs