(progn
 (defun stapleum (t1 t2 t3 n)
        (cond ((eq n 1) (princ "lege Stein von" t1 "nach" t2 )(terpri))
              (t (stapleum t1 t3 t2 (- n 1))
                 (princ "lege Stein von" t1 "nach" t2)(terpri)
                 (stapleum t3 t2 t1 (- n 1)))))
 (terpri)
 (princ "Türme von Hanoi")
 (terpri)
 (stapleum 'Turm_A 'Turm_B 'Turm_C 3)
)