(use srfi-1)((^,l(dotimes'169((^d(remove!(^_(<(mod(inc! d)(~ l(+ . '1)))1))l))0))(map(^n,n," ")l))display(iota 5000 1 2))