cuadrado(X,R):- 
			R is X * X.

test :- 
	repeat, 
	write('Introduce un número -->'),
	read(Dato),
	nl,
	(  Dato == end_of_file; 
		cuadrado(Dato, R), write(R), nl, fail
    ).
