random_choice(_, Choice, _, _) :-
	random(Number),	(Number < 0.5 -> Choice=c ; Choice=d).