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