for(i in 1:1e4)if(2==length(unique(charToRaw(paste(i)))))write(i,T)