begin 

	comment
		The Towers Of Hanoi
		Algol-60
		Copyright (C) 1999 Amit Singh. All Rights Reserved.
                http://hanoi.kernelthread.com
	;

	procedure movedisk(n, f, t);
	integer n;
	integer f;
	integer t;
	begin 
		outstring (1, "move ");
		outinteger(1, f);
		outstring (1, " --> ");
		outinteger(1, t);
		outstring (1, "\n");
	end;

	procedure dohanoi(n, f, t, u);
	integer n;
	integer f;
	integer t;
	integer u;
	begin 
		if n < 2 then 
			movedisk(1, f, t)
		else 
			begin 
				dohanoi(n - 1, f, u, t);
				movedisk(1, f, t);
				dohanoi(n - 1, u, t, f);
			end;
	end;

	dohanoi(3, 1, 3, 2);
end