.k directory/a/k
.bra `
ex `directory> to t:1
edit t:1
nb\\.k zzz/k.def zzz \ 8> sb\\ 9>11# pb\"\ 60#
0(l/Pr.Ent/ 7>pb/ /80#<e/  /c :s.deleteall directory =<zzz>./)
*0(l/Block/ 7>pb/ /80#<e/  /Delete <zzz>./)
w
c t:1
delete `dir> t:1


