$EXTRN IMPLODE;
* Интерпретатор XSLT
* Преобразование в составные символы

$ENTRY XiImpl  {
    (XSL STYLESHEET (e.1)) e.2 = (XSL STYLESHEET (e.1)) <XiImpl e.2>;
    (XSL s.a (s.b Is e.1)) e.2 = (XSL s.a (s.b Is <III e.1>))
                                 <XiImpl e.2>;
    (e.2) e.3 = (<XiImpl e.2>) <XiImpl e.3>;
    e.1 (e.2) e.3 = <XiImpl e.1> (<XiImpl e.2>) <XiImpl e.3>;
    e.1 = e.1;
         }
III {
    '.' = '.' ;
    '@' e.1 = <III e.1>;
    e.1 '/' e.2 = <IMPLODE e.1> <III e.2>;
    e.1 = <IMPLODE e.1>;
    }