Pensieve header: The Towers of Hanoi Puzzle.

move[1,a_,b_,c_]:= Print["Move #1 from ",a, " to ",c];
move[n_,a_,b_,c_]:= (
move[n-1,a,c,b];
Print["Move #",n," from ",a, " to ",c];
move[n-1,b,a,c]
)

move[2, A,B,C]

move[3, A,B,C]

move[5, A,B,C]