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