DO;1<-#4 DO\xaccaptures<grep> DO;2<-#3 DO\xaccaptures< -e> DO;3<-#2 DO\xaccaptures< "> DO\xacLF 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\xac end here DO\xacroutine 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\xac come here if <"> DORESUME#1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).