(print "RINGS OF HANOI")
(princ "\n ______________\n\n")
(defun hanoi(i)
 (defun han(n x y z)
  (if(>(- n 1)0)(han (- n 1) x z y))
  (terpri)(princ "From ")(princ x)(princ " to ")(princ z)
  (if(>(- n 1)0)(han (- n 1) y x z))
 )
 (han i 'Peg1 'Peg2 'peg3)
)
(textscr)(hanoi 3)