"TOWERS OF HANOI!HOW MANY DISKS? " D ? =
D. [ #H,D.,"LEFT","RIGHT","CENTER"; ]

$H %A [ #H,%A1-,%B,%D,%C;
        "MOVE " %B " TO " %C "!"
        #H,%A1-,%D,%C,%B;   ] @
$$