(DEFINE HANOI
,  (LAMBDA (NUMBER-DISKS SOURCE-POLE CENTER-POLE DEST-POLE)
,  ,  (COND
,  ,  ,  ((EQN NUMBER-DISKS 0))
,  ,  ,  (T
,  ,  ,  ,  (HANOI (SUB1 NUMBER-DISKS) SOURCE-POLE DEST-POLE CENTER-POLE)
,  ,  ,  ,  (PRINT (LIST 'MOVE 'DISK 'FROM SOURCE-POLE 'TO DEST-POLE))
,  ,  ,  ,  (HANOI (SUB1 NUMBER-DISKS) CENTER-POLE SOURCE-POLE DEST-POLE)
,  ,  ,  ,,,)
,  ,  ,,,)
,  ,,,)
,,,)