m:-between(1,10000,N),name(N,A),sort(A,B),length(B,C),C=2,\+writeln(N).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page