{ Towers of Hanoi - gri 12 Aug 1994 }

(setq print
   (lambda (x)
      (write x) (writeLn)))

(setq move
   (lambda (from to)
      (print (cons from (cons to ())))))


(setq hanoi
   (lambda (from over to n)
      (cond
         ((> n 0)
            (hanoi from to over (- n 1))
            (move from to)
            (hanoi over from to (- n 1))
         ))))


{ Example:

(hanoi 'a 'b 'c 5)
}