no_disk fix 5
iterator equ
rept no_disk x { iterator equ x }
macro define_solve {
    macro solve src,dst \{
        match x,iterator \\{
            temp equ iterator
            restore iterator 
            define_solve
            match =a =b,src dst \\\{ solve a,c \\\}
            match =a =c,src dst \\\{ solve a,b \\\}
            match =b =a,src dst \\\{ solve b,c \\\}
            match =b =c,src dst \\\{ solve b,a \\\}
            match =c =a,src dst \\\{ solve c,b \\\}
            match =c =b,src dst \\\{ solve c,a \\\}
            purge solve
            display 'move a disk from ',\\`src,' to ',\\`dst,13,10
            define_solve
            match =a =b,src dst \\\{ solve c,b \\\}
            match =a =c,src dst \\\{ solve b,c \\\}
            match =b =a,src dst \\\{ solve c,a \\\}
            match =b =c,src dst \\\{ solve a,c \\\}
            match =c =a,src dst \\\{ solve b,a \\\}
            match =c =b,src dst \\\{ solve a,b \\\}
            purge solve
            iterator equ temp
            restore temp
        \\}
    \}
}
define_solve
solve a,c
purge solve,define_solve
rept no_disk { restore iterator }
restore iterator