m:-between(1,100,N),B is(N-1)mod 10+1,\+(B<2->writef("%r ",[B,N]);format("~*r ",[B,N])).