IF YOU CAN SEE THIS go to http://www.cs.cornell.edu/Info/People/sfa/Nuprl/Shared/Xindentation_hack_doc.html
There is a Hanoi sequence taking all the disks from any peg to any other.
At:
hanoi sol2 via permshift n:, p,q:Peg.
pq (z:{1...}, s:({1...z}{1...n}Peg).
(s is a Hanoi(n disk) seq on 1..z & s(1) = (i.p) & s(z) = (i.q))