(doseq[%(range 10 1e4)](if(apply >(map int(str%)))(prn%)))