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