:cm L let :Ln=1|wh n<1997|Lb=n|Ln+=2|wh n*(n+2)%b|Lb-=2|endw|let@O=b>1?"":n.",".(n+2)."\n"|endw "oPZZ

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top