\[A,B]:-A>B. \[A,B|C]:-A>B,\[B|C]. m:-between(10,9876,X),name(X,Y),\Y,\+writeln(X).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page