@require: stdja

let-inline ctx \XeTeX =
  let size = get-font-size ctx in
  let f = read-inline ctx in
  let fE = ctx |> set-manual-rising (0pt -' (size *' 0.15))
               |> read-inline
  in
    f {X} ++ kern (size *' 0.08) ++ fE {Ǝ}
          ++ kern (size *' 0.125) ++ f {T}
          ++ kern (size *' 0.125) ++ fE {E}
          ++ kern (size *' 0.08) ++ f {X}

in
document (|
  title = {};
  author = {};
  show-title = false;
  show-toc = false;
|) '<
  +p{ \XeTeX; }
>