\: FINISH-" drop string-end ;
\: BSLASH-" drop key string-put JMP: \here \8 \+ \,
\: " string-start \: KLOOP key 92 =? JNZ: bslash-" 34 =? JNZ: finish-" string-put JMP: KLOOP
\: DO" \:> " " swap lit lit , , lit lit , , ;
\: DOIF \:> IF lit JZ: , here dup , ;
\: FINISH-" drop string-end ;
\: BSLASH-" drop key string-put JMP: \here \8 \+ \,
\: " string-start \: KLOOP key 92 =? JNZ: bslash-" 34 =? JNZ: finish-" string-put JMP: KLOOP
\: DO" \:> " " swap lit lit , , lit lit , , ;
\: DOIF \:> IF lit JZ: , here dup , ;