(use srfi-1)(do(`car'cdr,display(i 1(+ i 1))(l(iota 9999 1)(filter(^x(>(mod(inc! i)(max 2`l))0))'l)))(#f),`l," ")