Domains
	nombre,direccion,telefono=string
	edad=integer
Predicates
	imprime
	persona(nombre,direccion,telefono,edad)
Clauses
	imprime:-persona(X,Y,Z,E),
		write(X),nl,
		write(Y),nl,
		write(Z),nl,
		write(E),nl,fail.
	persona("juan","alabama 1","123",23).
	persona("pablo","alabama 2","23123",24).
	persona("maria","alabama 3","343123",20).
Goal
	imprime.

    Source: geocities.com/v.iniestra/apuntes/pro_log

               ( geocities.com/v.iniestra/apuntes)                   ( geocities.com/v.iniestra)