{towers of hanoi} ["Move disk from "$!\" to "$!\" "]p: {to from} [n;0>[n;1-n:@\h;!@\p;!\@h;!\@n;1+n:]?]h: {via from to} 4n:["right"]["middle"]["left"]h;!%%%