m:-X is random(2),nth0(X,[2550,50],Y),write(Y).