/*
  test

  Predicado que pide un número introducido por teclado.
  Termina cuando se introduce el número 9
  No tiene argumentos
  
  Nota: al leer el número, se debe escribir el punto "." al final

  Variables
  + Dato:
    - Significado: número

  + R: 
     - Significado: número

  Predicados relacionados
  write, read
*/


test :- repeat, 
		write('Please enter a number --> '), 
		read(X), 
		(X=:=9).
