WQ WebQuotes ->
Arg String : ^&String 
    . : WQ_TEXT

S <- String ..

B = `WQ_DASH ' '

S <- S A B 
' A = ' - '     `WQ_NBSP

S <- S A B 
' A = ' -' "\r" `WQ_NBSP

S <- S A B 
' A = ' -' "\n" `WQ_NBSP

S <- S NBSpace ' '
' NBSpace - StrChar >NBSpace< 0xFF STR_ASCII

S <- S '...' Dots
' Dots - StrChar >Dots< 0x85 STR_ANSI

- T >String< S [ S <> String | !Quotation_mark ]
' Quotation_mark <- S '"'

/

T WQ WebQuotes ->
Arg String : ^&String, S : String

Chars : Array : String : [S] = <> ..

- CharsIn S ( C : Chars .= C ),
  Transform >New_chars< Chars WQ_TEXT

String <- New_chars ''

/