DO;1<-#4 DO¬captures<grep>
DO;2<-#3 DO¬captures< -e>
DO;3<-#2 DO¬captures< ">
DO¬LF usage if empty
DO,1<-#99

DOWRITEIN;1+;2+;3

(8)DOREADOUT;1+;3

DOREADOUT,1

DO;2<-#5
(8)DOWRITEIN;2

DOREADOUT,1
DOWRITEIN;2+,1
DOREADOUT,1

D DO¬ end here

DO¬routine to do
  {
    char c;
    for(;(c=getchar()!=)'"';)
      putchar(c);}
DONEXTFROM#8
DOCOMEFROM#9
DO;1<-#1
DOWRITEIN;1
(113)DO:1<-;1SUB#1
(9)DOREADOUT;1
DOCOMEFROM:1~#255 DO¬ come here if <">
DORESUME#1