hanoi(N):-
		mover(N,izquierda,centro,derecha).
		

mover(1,A,_,C):- escribir_movimiento(A,C),
				 !.

mover(N,A,B,C):- N1 is N-1,
				 mover(N1,A,C,B),
				 escribir_movimiento(A,C),
				 mover(N1,B,A,C).
				 
escribir_movimiento(Origen, Destino):-
				nl,
				write(Origen),
				write(' --> '),
				write(Destino).