(use srfi-42)(define'n(any?-ec(: i 2 n)(exact?(/ n i))))(do-ec(: n 2 2000)(or'n'#0=(+ 2 n)(print n","#0#)))