m:-prompt1(''),readln([N]),between(1,N,X),(between(1,N,Y),(X>1,X<N,Y>1,Y<N -> \+write(0);\+write(1));\+nl).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page