;This function prints the disk moves

(defun print_func (src dest)
(setq moves (+ moves 1))
	 (format t 
            "~%Move Top disk from ~s to ~s"
            src                    ;; first ~s
            dest                   ;; second ~s
	 )
)