fantastico(scheme).
fantastico(lisp).

tiene(juan,libro_scheme).
tiene(pedro,libro_scheme).
tiene(juan,carro).
tiene(pedro,bicicleta).
tiene(maria,carro).
tiene(maria,bicicleta).

name:- write('Anote su nombre:'),read(Nombre), write(Nombre),write('Tú Nombre es: '),write(Nombre). 

saludo(Nombre):- nl, tab(4),write('Hola '),nl, tab(20), write(Nombre).

lista(M, N):- M<N, nl, write(M), NuevoM is M+1, lista(NuevoM, N). 
