;This is the toh function with 3 pegs
(defun toh (src dest aux n)
  (transfer src dest aux n ))


(defun transfer ( from to via n )
  (cond ((= n 1) (print_func from to ))
	(t (transfer from via to (1- n))
	   (print_func from to)
	   (transfer via to from (1- n)))))