Tower of Hanoi problem in LISP

TowerHanoi.lisp

(defun Hanoi (n origin destination auxiliar)
(if (= n 1) (moure 1 origin destination)
    (progn (Hanoi (- n 1) origin auxiliar destination)
        (moure n origin destination)
        (Hanoi (- n 1) auxiliar destination origin))))
        
(defun moure (k origin destination)
    (print (list 'move 'disk k
        'from 'column origin
        'to 'column destination)))

(Hanoi 3 'left 'right 'middle)