Scheme saved on Monday November 26, 2001 at 10:17:02 PM
  Release 7.6.0
  Microcode 14.5
  Runtime 14.192
  Win32 1.5
  SF 4.38
  Liar (Intel i386) 4.113
  Edwin 3.110

;You are in an interaction window of the Edwin editor.
;Type C-h for help.  C-h m will describe some commands.
;Package: (user)

(define (move-tower n from to extra)
  (define (move from to)
    (display "    move top disk from ") (display from) (display " to ") (display to) (newline) #t)
  (display "move-tower ")
  (display n)(display " ")
  (display from)(display " ")
  (display to)(display " ")
  (display extra)(newline)
  (cond ((= n 1) (move from to))
	(else (move-tower (- n 1) from extra to)
	      (move from to)
	      (move-tower (- n 1) extra to from))))