WQ_* :
 TEXT
 HTML
;

/* * */

WebQuotes ->
Arg Dest : &String, Src : String

Dest = Src

If String '<' then
 - WQ 'Dest' WQ_HTML
Else
 - WQ 'Dest' WQ_TEXT
;

/

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

- Split 'Chains' String '<',
  Transform 'Chains' WQ_HTML,
  Join >String< Chains '<'
' Chains = <> ..

/

Transform WQ WebQuotes ->
Arg Chains : ^&Array : String 
    . : WQ_HTML

Do i = 1 to Chains._
 If Chains.i '>' then
  - Split 'Sections' Chains.i '>',
    WQ 'Sections.(Sections._)' WQ_TEXT,
    Join >Chains.i< Sections '>'
  ' Sections = <> ..
 Else
  - WQ 'Chains.i' WQ_TEXT
 ;
;

/