m:-between(1,100,N),B is(N-1)mod 10+1,\+(B<2->writef("%r ",[B,N]);format("~*r ",[B,N])).
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page