(defun hanoitowers (disc src aux dst)
  (cond ((> disc 0)
	 (hanoitowers (- disc 1) src dst aux)
	 (princ  (list "Move" disc "from" src "to" dst))
	 (hanoitowers (- disc 1) aux src dst))))

    

(hanoitowers 3  1 2 3)