m:-readln([N]),N/I,M=N-I+1,X is max(I,M),(X/J,((J=I;J=:=M)->put(88);put(32));nl),1<0.
N/I:-between(1,N,I).