m:-between(2,8,J),between(1,9,I),\+writef("%r ",[I,J]).