z=#format
#(map(lambda(x)(if(apply char>?(string->list(z"~a"x)))(z #t"~y"x)))(iota 1e4 10))