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

S <- String ..

S <- S, ' - ',     `WQ_NBSP `WQ_DASH ' '
S <- S, ' -' "\r", `WQ_NBSP `WQ_DASH ' '
S <- S, ' -' "\n", `WQ_NBSP `WQ_DASH ' '

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

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

- T >String< S [ S <> String | S, '"' = 0 ]

/

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, ''

/