test :- repeat, 
		write('Please enter a number --> '), 
		read(X), 
		(X=:=9).
