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