Select Code to Download

>perl -E '%h=map{ $_ => 1 } qw( a b c d e f ); while ($k=each %h) { sa
+y $k }'
a
...
e

>

  KILL ^H
  SET ^H("D")=1
...
  .W K
  W !
  ; ^-- writes "CDE", all keys of ^H following "B" and stopping at the
+ end of keys or at the first key sorting after "E", in order