DIR
0^li,
""^idx,
""^pop,
1^running,
9^type,
IF{L(A)>1 1,
   V("O(!S,"_A_")")^type,
   1^pop,
   "!"^A},
IF{(type=9)!(type=1) 1,
   DO{running&V("+"_A_"[idx]^idx") 1,
      idx#0S^l,
      @P};
   type=0 1,
      DO{(+:)&(running) 1,
      :^l,
      @P}},
IF{pop 1,
   C(!U)},
END;

P
""^lf,
IF{li=22 1,
   1^lf,
   N("-- more --")^#,
   #S^q,
   D(13)_"          "_D(13)^#,
   0^li},
li+1^li,
IF{(q="q")!(q="Q") 1,
   ""^running;
   IF{'lf 1,
      N(l)^#;
      l^#}}
