primessievefromss0fromXconsXfromsXheadconsXYXtailconsXYYiftrueXYXiffalseXYYfilterssXconsYZifdividesssXYfilterssXZconsYfilterXsieveYsieveconsXYconsXfilterXsieveYprimes0sieve1from1s100cons2head1tail1if3true0false0filter2divides2FULL./TRS/nontermin/CSR/ExIntrod_GM99.trs